Igelnet.de - Tipp der Woche

Den Blattschutz aller Tabellenblätter auf einmal entfernen (Tipp_62) - 24.05.2008

Wenn Sie eine Arbeitsmappe mit vielen Tabellenblättern haben und diese Blätter alle geschützt sind, ist es sehr mühsam, den Blattschutz aller Blätter aufzuheben, da man diese Prozedur bei jedem Blatt einzeln vornehmen muss.

Dieses Makro ruft nacheinander alle Blätter auf und entfernt den Blattschutz:

Sub Passwort_weg()

    For i = 1 To Worksheets.Count

        Sheets(i).Unprotect (4711)

    Next i

End Sub

In diesem Beispiel lautet das gesetzte Passwort 4711. Dieses Makro funktioniert nur, wenn alle Tabellenblätter mit demselben Passwort versehen wurden.