Excel受保护的工作表如何展开和折叠分级单元行或列

发布网友 发布时间：2022-03-03 06:42

我来回答

共1个回答

热心网友 时间：2022-03-03 08:11

VBA解决方法

第一步:按alt+F11打开vbe编辑器,双击Thisworkbook,复制以下代码粘贴

Private Sub Workbook_Open()

With Sheets("sheet1")     ' 把  sheet1  改成你的工作表名称

.EnableOutlining = 1

.Protect "123", userInterfaceOnly:=True  ' 把  123  改成你的保护密码

End With

End Sub

第二步:把宏的安全性调到低,如果是07以上格式请保存为XLSM格式

第三步:关闭工作簿   重新打开即可

当然  你也可以给你的vba工程加上密码

你好，麻烦你再指点一下，我根据你的提示操作，但还是遇到报警问题，不知是否方便添加你的邮箱讨论一下呢，或者方便留下你的联络方式吗？我的邮箱为rxdjl@126.com；若方便还请留下你电话，我再请教一下你，感谢！