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