End Sub 说明:假设工作表名称为“Sheet1”,上述代码对该工作表进行保护,并设置的密码为“123”。如果之前已对工作表设置了密码保护,需确保两处的密码一致。 3.根据需要设置VBA保护密码。 最后保存工作簿。这样,用户打开受保护的工作表后就可以使用已创建的分级显示了。
方法/步骤 1 在excel2013中创建一个工作表和数据区域 2 选中需要创建分组的行，通过【数据】菜单上【创建组】来创建分组，分组创建完毕后可以通过左侧“+”“-”号来折叠或者展开分组数据 3 点选数据区域，设置单元格属性取消保护 4 点击【审阅】菜单上的保护工作表，对并作表进行保护，并设定密码，此时发现在工...
1.先在工作表中建立分级显示。 2.按Alt+F11,打开VBA编辑器,在“工程”窗口中双击“ThisWorkbook”,在代码窗口中输入下列代码: Private Sub Workbook_Open()With Worksheets("Sheet1").EnableOutlining = True.Protect Password:="123", userInterfaceOnly:=TrueEnd WithEnd Sub 说明:假设工作表名称为“Sheet1”,上...
1.先在工作表中建立分级显示。2.按Alt+F11，打开VBA编辑器，在“工程”窗口中双击“ThisWorkbook”，在代码窗口中输入下列代码：Private Sub Workbook_Open()With Worksheets("Sheet1").EnableOutlining = True .Protect Password:="123", userInterfaceOnly:=True End With End Sub 说明：假设工作表名称...