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.