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

Question

使用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