Excel – VBA检查工作表是否不受保护

if Worksheets("test").ProtectContents我可以识别工作表是否受到保护。 它只返回一个真实的，对吗？

我怎样才能检查是否不受保护？

 If Worksheets("test").ProtectContents = True Then: Exit Sub: For Each cell In Range("B6:B112") ... Next cell Else: If Not Worksheets("test").ProtectContents Then Dim rng As Range ... 

当表单被保护时，foreach循环必须执行。 如果不是工作表的部分是用于表单不受保护的部分。 谢谢。

Answer 1

我想这是你在找什么，

 If ActiveSheet.ProtectContents = True Then MsgBox "Protected" Else MsgBox "Not protected" End If 

如果没有，请评论。 希望我们能够解决你的问题。

Answer 2

尝试像这样：

 If Not Worksheets("test").ProtectContents Then Exit Sub