Excel VBA - Prüfen, ob ein Arbeitsblatt MIT EINEM PASSWORT geschützt ist

Können wir überprüfen, ob ein Blatt geschützt ist, mithilfe der Eigenschaft ProtectContents. Aber wie überprüfen, ob es mit einem Passwort geschützt ist?

if ws.ProtectContents then
    ''do something
end if
InformationsquelleAutor D. O. | 2016-11-29
  1. 7

    Ich glaube nicht, dass es einen direkten Weg, dies zu tun, indem Sie Weg von einer Eigenschaft. Alternativ, wenn Sie versuchen könnte, um den Schutz des Arbeitsblatts mit einem leeren Kennwort und den Fehler abzufangen, sollte es scheitern:

    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

    Rufen Sie diese wie:

    isSheetProtectedWithPassword(Worksheets("Sheet1"))

    Und zurück True oder False

    • Danke JNevill.
    InformationsquelleAutor JNevill
Schreibe einen Kommentar