如何实现保护工作表的同时，可以无需解锁使用分组功能

HARDWORK2008

求教各位高人，我在工作中遇到以下问题：
我将一个SHEET进行了保护，然后发现未解锁时不能打开事先GROUP过的数据，无法看到更深一层得数据，请问该如何设置才能在保护的前提下，同时能不解锁就能打开GROUP过的数据呢？

查了《EXCEL实战技巧精粹》在第234页，发现了解决方法，严格按照里面的代码录入之后，但是试了很多遍都失败了。不知道为什么

多谢！

HARDWORK2008

HARDWORK2008

已经请教同事，结论是不可完成的任务。书上说的也不对，晕菜中。希望编者看到这个帖子，能正面回复一下

Kevin

抱歉，书上的代码有误，请参照光盘上此技巧对应的实例。

HARDWORK2008

谢谢您的指点，我回家找到光盘，学习一下。

HARDWORK2008

刚才从网站上找到了实例，已经解决了。十分感谢

Needwho

怎么弄的啊，请教一下，谢谢

zhouwei83415

HARDWORK2008 发表于 2010-1-5 16:46
刚才从网站上找到了实例，已经解决了。十分感谢

请问如何实现的，求答案~~~

lk710618

Needwho 发表于 2012-7-2 17:48
怎么弄的啊，请教一下，谢谢

Private Sub Workbook_Open()
For Each sh In ThisWorkbook.Sheets
    sh.Protect Password:="***", userInterFaceonly:=True, AllowFiltering:=True
    sh.EnableOutlining = True
Next
On Error Resume Next
    For Each sh In Sheets
    sh.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    Next
End Sub