将下段代码添加到,vba编辑界面(可使用快捷键alt+f11),双击thisWorkbook,然后复制粘贴。然后按照你的步骤做下去就可以了(使用工作表保护)===================================================Private Sub Workbook_Open()Sheets(\"Sheet1\").EnableOutlining = TrueSheets(\"Sheet1\").Protect Password:=\"***\
全部回复