在EXCEL中,如何用VBA查询当前工作表是否在保护状态?

如题所述

可以用下面的代码来实现:
Sub main()
If ActiveSheet.ProtectContents=True Then
MsgBox "工作表处于保护状态!"
End If
End Sub

关于此例中用到的ProtectContents属性的相关知识:
如果工作表的内容处于保护状态,则该值为 True。对于图表工作表,这样将保护整个图表。对于工作表,这样将保护每个单元格。Boolean 类型,只读。
温馨提示:答案为网友推荐,仅供参考
第1个回答  推荐于2016-03-20
Sub aa()
If ActiveSheet.ProtectContents Then
MsgBox "工作表处于保护状态!"
Else: MsgBox "工作表处于未保护状态!"
End If
End Sub本回答被提问者采纳

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网