如何判断Excel工作簿是否受保护

Question

我可以使用Excel工作表的属性来判断工作表是否受到保护（Worksheet.Protection，Worksheet.ProtectContents等）。

如果整个工作簿已被保护，我该如何判断使用VBA？

Answer 1

找到自己的答案：

我需要Workbook.ProtectStructure和Workbook.ProtectWindows性能。

Answer 2

Worksheet.ProtectedContents是您需要在每个Worksheet上使用的东西。

所以我会成立这样一个循环：

Public Function wbAllSheetsProtected(wbTarget As Workbook) As Boolean 

Dim ws As Worksheet 

wbAllSheetsProtected = True 

For Each ws In wbTarget.Worksheets 
    If ws.ProtectContents = False Then 
     wbAllProtected = False 
     Exit Function 
    End If 
Next ws 

End Function 

如果每个工作表被保护的函数将返回真，假如果没有保护的任何工作表。我希望这是你正在寻找的。