作者：绿色风
分类：
时间：2022-08-17
浏览：97
楼主
apolloh |
Q：如何在工作表保护时方便地使用分级显示功能？
A：以下代码可在需要时输入密码，开启保护状态下的工作表的分级显示功能。
注意：保护时如果选取了对话框中的非默认选项，执行代码后将被忽略。
- Sub EnableProtectSheetOutline()
- On Error GoTo ERR1
- Dim strPwd As String
- Application.ScreenUpdating = False
- If Not ActiveSheet Is Nothing Then
- With ActiveSheet
- If .ProtectContents = True Then
- strPwd = InputBox("请输入工作表密码！")
- .Unprotect strPwd
- .Protect Password:=strPwd, userinterfaceonly:=True
- .EnableOutlining = True
- Else
- Msgbox("本工作表未保护！")
- End if
- End With
- End If
- Exit Sub
- ERR1:
- MsgBox (Err.Description)
- End Sub
|
2楼
ljq_83 |
我全部按照这个来的，但是执行的时候怎么没有反应呢 |
3楼
ljq_83 |
工作表保护了以后，还是不能使用分级显示 |
4楼
曾杰2号 |
谢谢楼主分享 |
5楼
story99 |
了解一下，这个不错的 |
6楼
rebude |
多多学习，不一定要结果，主要是总结。 |
7楼
yukaiwz |
谢谢分享！ |
8楼
wangxiasy |
代码我搞不定，谢谢楼主 |
9楼
andrewyang |
 |
10楼
young.zhang |
了解了，非常感谢！ |
11楼
paul001 |
问个弱爆了的问题 什么是分级显示啊？ |
12楼
隔山听流水 |
 |
13楼
paul001 |
话说没搞明白什么是分级显示 |
14楼
kevin_yjl |
以后再来学习 |
15楼
yanqiang5386 |
代码有点难，慢慢学习~~~ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一