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

05. April 2012
Martin Althaus Von Martin Althaus, Excel, Office ...

So legen Sie einen Kennwortschutz per Makro an

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

Verwandte Themen:

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"