Zellensperren in EXCEL

Hallo,

wer kann mir einen Tipp geben?

Ich arbeite oft mit EXCEL-Mappen, die eine große Anzahl von Blättern enthalten.

Verschiedene Zellen werden dabei gesperrt, damit sie nicht versehentlich geändert werden können.

Die Sperre wird bekanntlich aktiviert über Extras>Schutz>Blatt schützen.

Wenn ich die Sperre für alle Blätter aktivieren bzw. deaktivieren will, so muss ich sie alle einzeln aufrufen und den Vorgang bei jedem Blatt einzeln wiederholen.
Das ist sehr lästig.

Gibt es eine Möglichkeit, die Zellensperre für alle Blätter auf einmal zu aktivieren bzw. zu deaktivieren?

Vielen Dank für Tipps.

Gruß
Günter LUDWIG

Hallo

Über Makro:

Sub Alle_Blaetter_Schuetzen_EIN()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Protect
    Next ws
End Sub

Sub Alle_Blaetter_Schuetzen_AUS()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
        For Each ws In Worksheets
            ws.Unprotect
        Next ws
    Application.ScreenUpdating = True
End Sub

Gruß hddiesel