保护/解除保护图表
保护/解除保护图表
提问于 2014-01-23 16:52:09
所以在我的宏运行时，我有这些简单的子程序来解除保护，而不是保护它们，唯一的问题是，我的一些表实际上是图表，当调用这些子程序时，它们没有受到保护。我如何改变我的代码，以合并图表以及？谢谢!
Sub UnprotectAll()
Dim AdminPassword As String
AdminPassword = "password"
ActiveWorkbook.Unprotect ("Evaluate(AdminPassword)")
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:=AdminPassword
Next sh
End Sub
Sub ProtectAll()
Dim AdminPassword As String
AdminPassword = "password"
ActiveWorkbook.Protect ("Evaluate(AdminPassword)")
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:=AdminPassword
Next sh
End Sub回答 1
Stack Overflow用户
回答已采纳
发布于 2014-01-23 16:59:49
用ActiveWorkbook.Worksheets替换ActiveWorkbook.Sheets
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/21314460
复制相关文章
相似问题
腾讯云开发者
