✔ Mehrere Exelblätter schützen

[Carndret]

Ich bin gerade dabei einige Excelbätter vor Veränderungen (Zellen einfügen, vergrößern etc.) zu schützen. Dazu gehe ich bei jedem Blatt bei Extras unter Schutz -> Blatt schützen. Da es eben einige sind dauert mir das zu lange und wenn ich etwas ändern muss, muss ich wieder alle einzeln schützen. Kann man das irgendwie einfacher machen oder sogar per Makroskript?

 

[Carndret]

Ok hab's doch noch selbst gefunden .

Wen's interessiert:

Private Sub Aufheben()
    For I = 1 To Sheets.Count
        Sheets(I).Unprotect ("Passwort")
    Next I
End Sub


Private Sub Schutz()
    For I = 1 To Sheets.Count
        Sheets(I).Protect ("Passwort")
    Next I
End Sub