VBA · Administration

Alle Arbeitsblätter mit bekanntem Kennwort entsperren

Entfernt den Blattschutz aller Arbeitsblätter, sofern das korrekte Kennwort bekannt ist.

VBA

Sub AlleBlaetterEntsperren()
    Const Kennwort As String = "BITTE_AENDERN"
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect Password:=Kennwort
    Next ws
End Sub

Hinweis: Kein Passwort-Cracking: Das bekannte Kennwort muss im Makro eingesetzt werden.

VBAExcelBlattschutzAdministration

← Zur Codebibliothek Unterstützung anfragen