Tutorials

Alle Tabellenblätter in Excel gleichzeitig schützen (VBA-Tutorial)

Melden

Hier ist ein detailliertes Tutorial, wie du mit einem Makro (VBA) alle Tabellenblätter in einer Excel-Arbeitsmappe gleichzeitig schützen kannst.

Wenn du eine Arbeitsmappe mit vielen Blättern hast, ist es mühsam, jedes Blatt einzeln über das Menü zu schützen. Mit einem kleinen VBA-Skript kannst du diesen Vorgang automatisieren und alle Blätter mit nur einem Klick sperren oder entsperren.

Schritt 1: Die Entwicklertools aktivieren

Bevor du Makros schreiben kannst, musst du sicherstellen, dass die Registerkarte Entwicklertools im Menüband sichtbar ist.

  1. Klicke mit der rechten Maustaste auf eine beliebige Stelle im Menüband (Ribbon).
  2. Wähle Menüband anpassen....
  3. Setze in der rechten Liste ein Häkchen bei Entwicklertools.
  4. Bestätige mit OK.

Schritt 2: Den VBA-Editor öffnen

  1. Gehe zur Registerkarte Entwicklertools.
  2. Klicke auf Visual Basic (oder drücke ALT + F11).
  3. Ein neues Fenster öffnet sich. Gehe im Menü oben auf Einfügen > Modul.

Schritt 3: Den VBA-Code einfügen

Kopiere den folgenden Code und füge ihn in das weiße Fenster des neuen Moduls ein:

Sub AlleBlaetterSchuetzen()
    Dim ws As Worksheet
    Dim passwort As String

    ' Hier dein gewünschtes Passwort festlegen
    passwort = "DeinPasswort123"

    ' Schleife durch alle Tabellenblätter der aktiven Arbeitsmappe
    For Each ws In ActiveWorkbook.Worksheets
        ws.Protect Password:=passwort
    Next ws

    MsgBox "Alle Tabellenblätter wurden geschützt!", vbInformation, "Erledigt"
End Sub

Sub AlleBlaetterSchutzAufheben()
    Dim ws As Worksheet
    Dim passwort As String

    ' Das Passwort muss dasselbe wie oben sein
    passwort = "DeinPasswort123"

    ' Schleife zum Aufheben des Schutzes
    For Each ws In ActiveWorkbook.Worksheets
        ws.Unprotect Password:=passwort
    Next ws

    MsgBox "Der Schutz für alle Blätter wurde aufgehoben!", vbInformation, "Erledigt"
End Sub

Schritt 4: Das Makro ausführen

  1. Schließe das VBA-Fenster (einfach oben rechts auf das X klicken).
  2. Gehe zurück zu deinem Excel-Blatt.
  3. Drücke ALT + F8 (oder klicke auf Entwicklertools > Makros).
  4. Wähle AlleBlaetterSchuetzen aus und klicke auf Ausführen.

Wichtige Hinweise

  • Passwort anpassen: Ersetze im Code den Text "DeinPasswort123" durch dein tatsächliches Passwort. Wenn du kein Passwort möchtest, lass die Anführungszeichen leer ("").
  • Datei-Format: Damit das Makro gespeichert bleibt, musst du deine Excel-Datei als Excel-Arbeitsmappe mit Makros (.xlsm) speichern. Eine normale .xlsx-Datei löscht alle Makros beim Schließen.
  • Schutz-Optionen: Der obige Code nutzt die Standard-Schutzeinstellungen (Zellen sperren). Wenn du möchtest, dass Benutzer trotz Schutz z.B. sortieren oder filtern dürfen, muss der ws.Protect-Befehl um zusätzliche Parameter ergänzt werden (z.B. AllowFiltering:=True).

Bonus: Schaltflächen erstellen

Damit es noch komfortabler ist, kannst du unter Entwicklertools > Einfügen zwei Schaltflächen (Formularsteuerelemente) in dein Blatt zeichnen und ihnen jeweils das Makro zum Schützen und Entsperren zuweisen. So reicht ein einfacher Klick auf dem Tabellenblatt aus.

0