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

HARDWORK2008 · 发表于 2010-1-3 11:59

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

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

多谢！

HARDWORK2008 · 发表于 2010-1-4 08:51

HARDWORK2008 · 发表于 2010-1-4 10:34

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

Kevin · 发表于 2010-1-4 19:03

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

HARDWORK2008 · 发表于 2010-1-5 16:40

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

HARDWORK2008 · 发表于 2010-1-5 16:46

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

Needwho · 发表于 2012-7-2 17:48

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

zhouwei83415 · 发表于 2016-2-18 10:00

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

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

lk710618 · 发表于 2017-2-15 23:10

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

		自动登录	找回密码
密码			免费注册

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

已经请教同事，结论是不可完成的任务。书上说的也不对，晕菜中

谢谢！

回复 4楼 Kevin 的帖子