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

fubozhangl

老师你好~~
private sub  workbook_open()
worksheets("sheet3") .protect password:="pwd",    userinteraceonly:=true
worksheets("sheet3").enableautofilter=true
end sub
这段代码能解决（在受保护的工作表中调整分级显示视图），但是又有个新问题出现了,
我的工作表在保护下，可以使用自动筛选功能的，然后把这段代码一上去，每次打开工作
表都使用不到自动筛选功能。请老师帮忙解决下，我的QQ是1113607665,邮箱是1113607665@qq.com

pyqc

{:soso_e185:}顶上去。有哪位大侠解决了上面的问题了吗？（在受保护的表格里面，既可以使用组，又可以使用自动筛选）

柠檬镜

找了好久 终于找到了 感谢啊！！

柠檬镜

enableautofilter 改成 EnableAutoFilter 试试呢。

andy90

补充说明：
Private Sub Workbook_Open()
   Worksheets("sheet3").Protect Password:="pwd", userinterfaceonly:=True
   Worksheets("sheet3").EnableOutlining = True
End Sub

1、如果自己更改过表名，请将上述代码中sheet3改为自己改的表名（如：汇总表）。
2、自己设置了保护工作表的密码，请将上述代码中pwd改为自己设的密码（如：1234）。
3、把代码弄好后，请保存后关闭Excel软件，再重新打开，Excell软件会提示启用宏功能，请点击启用宏，方可正常使用分级显示功能。
4、已测试Excel2003～2013均可使用这段代码实现分级显示功能。

andy90

fubozhangl 发表于 2011-5-1 10:35
老师你好~~
private sub  workbook_open()
worksheets("sheet3") .protect password:="pwd",    userinte ...

在启用保护工作表功能下，实现“分级显示”和“自动筛选”功能：
Private Sub Workbook_Open()
   Worksheets("sheet3").Protect Password:="pwd", userinterfaceonly:=True
   Worksheets("sheet3").EnableOutlining = True
   Worksheets("sheet3").EnableAutoFilter = True
End Sub

nerazzurri07

fubozhangl 发表于 2011-5-1 10:35
老师你好~~
private sub  workbook_open()
worksheets("sheet3") .protect password:="pwd",    userinte ...

不知道你的这个问题解决了没有？
如果解决了，能否分享给我。
谢谢！

有生之年

白天睡觉 发表于 2009-1-18 10:15
刚才发现有很多贴子都在问这个问题，都没解决。
我把08年以后的帖子都回了，引用这个贴。
怕有人不会VBA ...

请教一下如果要对一个工作薄下的所有工作表设置这个功能，代码应该如何写，感谢

dengcaimao

针对多个工作表，用以下代码，在锁定工作表的情况下，可以使用分级显示和自动筛选
Private Sub workbook_Open()
Dim i%
For i = 1 To Sheets.Count
With Sheets(i)
.EnableOutlining = True
.EnableAutoFilter = True
.Protect "ABC", userInterfaceOnly:=True '把ABC改成你的保护密码
End With
Next
End Sub

但是我的所有工作表中需要点击按钮执行一个自动调整行高的宏（放在模块当中），在Excel中没问题，在WPS2019中不能执行，提示Rows(i).EntireRow.AutoFit这一句出错，还没找到办法解决，因为工作中经常Excel和wps换用，wps有一些功能方便。请大师解决。

dengcaimao

dengcaimao 发表于 2020-9-28 21:54
针对多个工作表，用以下代码，在锁定工作表的情况下，可以使用分级显示和自动筛选
Private Sub workbook_O ...

自己今天想了一个苯办法，在自动调整行高的宏中加入工作表解保护，再保护，再执行一次
For i = 1 To Sheets.Count
With Sheets(i)
.EnableOutlining = True
.EnableAutoFilter = True
.Protect "ABC", userInterfaceOnly:=True '把ABC改成你的保护密码
End With
Next
可以解决WPS中在保护工作表的情况下，能使用分级显示、筛选和自己定义的自动调整行高的宏。