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

Question

我们可以使用 ProtectContents 属性检查工作表是否受到保护。但如何检查它是否受密码保护呢？

if ws.ProtectContents then
    ''do something
end if 

Answer 1

我不认为有直接的方法可以通过属性来做到这一点。不过，您也可以尝试使用空白密码取消对工作表的保护，并在失败时捕获错误:

Function isSheetProtectedWithPassword(ws As Worksheet) As Boolean
    If ws.ProtectContents Then
        On Error GoTo errorLabel
        ws.Unprotect ""
        ws.Protect
    End If
errorLabel:
    If Err.Number = 1004 Then isSheetProtectedWithPassword = True
End Function

你可以这样调用它:

isSheetProtectedWithPassword(Worksheets("Sheet1"))

它将返回True或False