如何实现对多个工作表进行密码保护的同时分组功能可以使用，多个工作表！

julyxue31

使用如下VBA程序可实现对单一工作表的保护且不影响分组功能，但如何对一个Excel文件内的多个工作表同时实现保护，而且各个工作表的分组功能都不影响？
附件中为两个工作表，以此类推，多个工作表如何实现？
非常感谢！

爱疯

Private Sub Workbook_Open()
    Dim x As Worksheet
    For Each x In Sheets
        x.Protect Password:="123", userinterfaceonly:=True
        x.EnableOutlining = True
    Next
End Sub

2.rar (12.13 KB, 下载次数: 9)

2015-1-22 15:16 上传

点击文件名下载附件




作用：使每个工作表都
1）设置工作表保护（密码123）
2）保护用户界面
3）启用分级显示符号

julyxue31

爱疯 发表于 2015-1-22 15:19
Private Sub Workbook_Open()
    Dim x As Worksheet
    For Each x In Sheets

谢谢，已顺利解决我的问题，非常感谢！{:071:}{:11:}