Excel 2010 受保护的工作表中使用“组合”功能（亲自实践）

组合功能在Excel中经常使用，可以很方便地将一组数据展开或者折叠

当我们需要将其所在工作表进行保护时，发现之前设定的组合无法使用了

 

此时，就需要我们在VBA中设定相关语句：

PS:该方法转自Excelhome论坛 （http://club.excelhome.net/forum.php?mod=viewthread&tid=259467）

 

Private Sub Workbook_Open()
Worksheets("sheet3").Protect Password:="pwd", userinterfaceonly:=True
Worksheets("sheet3").EnableOutlining = True
End Sub

可以根据需要更改工作表名"sheet3"和密码"pwd"，然后保存，关闭Excel再打开即可

 

另外，由于在VBA中明码输入了工作表的保护密码，所以也需要对VBA进行密码保护

方法如下：