你直接取消保护再使用不就行了?
楼上的代码是写到thisworkbook中的,是打开文件时,取消保护。
你这个需要用到VBA才能达到你要的效果:保护后照样可以打开分组
下面是代码,你直接复制过去更改一下工作表的名称,运行一下就行了:
Private Sub Workbook_Open()
Worksheets("sheet1").Protect Password:="chaxun", userinterfaceonly:=True
Worksheets("sheet1").EnableOutlining = True
End Sub
==========================
注释:Password:="chaxun", ---------chaxun是保护密码,你可以随意设置