Sub UnprotectAllSheets()
    Dim ws As Worksheet
    Dim password As String
    
    ' Falls die Blätter passwortgeschützt sind, hier das Passwort eingeben
    password = "deinPasswort"

    ' Schleife durch alle Arbeitsblätter im aktiven Arbeitsbuch
    For Each ws In ThisWorkbook.Worksheets
        ' Blattschutz aufheben
        On Error Resume Next ' Falls ein Blatt nicht geschützt ist, Fehler ignorieren
       ' ws.Unprotect Password:=password ' Kannst du aktivieren wenn ein Passwort verwendet wird.
        On Error GoTo 0 ' Fehlerbehandlung wieder aktivieren
    Next ws
    
    MsgBox "Blattschutz für alle Blätter aufgehoben."
End Sub