提问：在加了保护的工作表上，如何才能允许用户分级显示？

huyutian · 发表于 2005-3-7 21:45

如上图所示的一张工作表中使用了分级显示，如果对该工作表进行保护后，再对它进行分级显示时将会提示如下错误

那么如何才能通过编写VBA代码使得在工作表保护后，用户仍能进行分级显示呢？

或者说可否截取用户点击"-"按钮事件呢？小弟自学VBA，苦无名师指点，问题太多，不知如何解决，恳请赐教，在此先谢了。

huyutian · 发表于 2005-3-8 22:48

今天在网上用google搜索了一下，找到了解决办法，特与大家共享！

原文请看这里http://www.excelforum.com/archive/index.php/t-250445.html

翻译如下：

如果你已经设置分级显示，那么请在workbook_open/auto_open中加入以下代码

Option Explicit Sub auto_open() With Worksheets("sheet1") .Protect Password:="hi", userinterfaceonly:=True .EnableOutlining = True End With End Sub

由于excel关闭后，不能记住这一设置，因此你必须每次打开文档时，打开这一开关。

同样的，可以在保护工作表后，允许用户激活受保护工作表中的自动筛选。

[此贴子已经被作者于2005-3-8 23:26:40编辑过]

wsxpr · 发表于 2005-4-20 22:52

这个问题俺早就想知道，今天终于有了答案

shuiyuan · 发表于 2005-4-20 23:20

非常好的方法

wwuxxiao · 发表于 2006-1-6 20:39

我是初学者，哪位高手能把2楼的方法做个附件传上来呀！在下不胜感激！

烟雨厦江南 · 发表于 2006-1-6 20:42

原来还可以这样做，受教了。谢谢楼主!

wwuxxiao · 发表于 2006-1-6 20:45

能不能上传个附件给在下学学，真的急需呀！在线等！

wwuxxiao · 发表于 2006-1-6 20:52

没有人能上传吗？等了！

wwuxxiao · 发表于 2006-1-6 21:00

.Protect Password:="hi", userinterfaceonly:=True
.EnableOutlining = True

这两句是什么意思？

chenhuafu · 发表于 2006-2-7 12:40

ok!?

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