Alle Tabellenblätter per Makro mit einem Kennwort schützen

Sie möchten dafür sorgen, einen Kennwortschutz für alle Tabellenblätter einer Mappe Ihrer Wahl per Makro anzulegen? Das kann dann sinnvoll sein, wenn es Ihnen zu viel Mühe macht, Tabellenblätter einzeln zu schützen oder Sie alle Arbeitsmappen eines Verzeichnisses automatisch schützen möchten. Verwenden Sie das folgende Makro, um alle Tabellenblätter der aktiven Mappe mit dem Kennwort "schutz" zu versehen:

Sub AlleSchuetzen()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Protect ("schutz")
Next Blatt
End Sub

Setzen Sie anstelle des Textes "schutz" das Kennwort Ihrer Wahl ein. Natürlich ist dieser Programmcode nur sinnvoll, wenn Sie ihn außerhalb der Arbeitsmappe eintragen, in der Sie den Schutz anlegen. Ansonsten kann jeder Anwender im VBA-Quelltext das Kennwort auslesen.

Um in den geschützten Tabellenblättern etwas verändern zu können, müssen Sie den Schutz aufheben. Das können Sie manuell über das Kommando EXTRAS - SCHUTZ - BLATTSCHUTZ AUFHEBEN durchführen. Dieses Kommando steht nur zur Verfügung, wenn das aktuelle Tabellenblatt auch tatsächlich geschützt ist.

Wenn Sie alle geschützten Tabellenblätter per Makro wieder freigeben möchten, setzen Sie den folgenden Programmcode ein:

Sub AlleFreilegen()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Unprotect ("schutz")
Next Blatt
End Sub