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