[求助]技巧135 在受保护的工作表中调整分级显示视图

ljyapril · 发表于 2008-7-7 18:16

<<EXCEL实战技巧精粹>>第234页中技巧135 在受保护的工作表中调整分级显示视图

按<<ALT+F11>>打开编辑器窗口.

按<<CTRL+R>>组合键显示工程资源管理器窗口,双击其中的THIS WORKBOOK,

在右边的代码窗口中输入以下代码:

private sub workbook_open()

worksheets("sheet3") .protect password:="pwd", userinter

faceonly:=true

worksheets("sheet3").enableautofilter=true

end sub

我已经按照书上那样做，但出现　编译错误　缺少：命名参数　的对话框

为什么会这样的？？？？

[此贴子已经被gouweicao78于2008-7-8 1:09:54编辑过]

gouweicao78 · 发表于 2008-7-8 00:59

把下面代码复制，贴进去试试看：

Private Sub Workbook_Open()
Worksheets("sheet3").Protect Password:="pwd", userinterfaceonly:=True
Worksheets("sheet3").EnableOutlining = True
End Sub

ljyapril · 发表于 2008-7-8 10:51

谢谢～～～可以了

白天睡觉 · 发表于 2009-1-18 10:15

刚才发现有很多贴子都在问这个问题，都没解决。
我把08年以后的帖子都回了，引用这个贴。
怕有人不会VBA，特传个动画上来
保护后应用分级显示.gif

ainair · 发表于 2009-5-4 16:14

太感谢了，好人啊

tianyunjie · 发表于 2009-10-19 12:55

太好了，正是我需要的呢~~~

Jim_syt · 发表于 2009-10-26 00:06

提个问题：如果是一个xls中所有表都需要这样设置的话，VB程序该如何写？
上面的解答只是针对sheet3吧？

liusea1228 · 发表于 2009-12-11 19:58

但是
1.如果打开EXCEL时，选择的是“禁用宏”的按钮的话，就不起作用了阿？？
2.打开后，启用宏，起保护后，然后用密码解保护，OK后--〉菜菜的问下使用何快捷方式可以使宏再起作用？

stephen1707 · 发表于 2010-8-26 12:55

先来偷师，谢谢分享！

xiaozhu20919 · 发表于 2010-9-18 16:21

按照动画演示的作了，也没有用，尝试了将表名及密码改为我现在使用的表明和密码也不起作用

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