VBA 工作簿结构窗口保护

最新推荐文章于 2020-12-11 15:08:11 发布

wang8898570

最新推荐文章于 2020-12-11 15:08:11 发布

阅读量2.2k

点赞数

分类专栏： vba 文章标签： vba 结构保护窗口保护

本文链接：https://blog.csdn.net/wang8898570/article/details/84924287

版权

vba 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

工作中经常遇到别人发来的表格进行数据过滤，但针对有结构保护的工作簿无法插入新表格输出过滤内容，需要对工作簿状态进行判断，有保护的在原表格指定位置输出。主要针对状态判断（处理代码可自行完善）

Sub 工作簿结构窗口保护()
ActiveWorkbook.Protect Structure:=True, Windows:=False 'Structure:=True 结构保护设置为保护
If ActiveWorkbook.ProtectStructure = True Then
'处理代码。。。。。
MsgBox “工作簿结构保护”
'处理代码。。。。。
Else
MsgBox “工作簿结构未保护”
End If
If ActiveWorkbook.ProtectWindows = True Then
'处理代码。。。。。
MsgBox “工作簿窗口保护”
Else
MsgBox “工作簿窗口未保护”
'处理代码。。。。。
End If
End Sub