Blattschutz für alle Sheets mit Ausnahmen einrichten
Schritt-für-Schritt-Anleitung
Um den Blattschutz für alle Tabellenblätter in einer Excel-Arbeitsmappe einzurichten, mit Ausnahme von zwei bestimmten Sheets, kannst du den folgenden VBA-Code verwenden. Dies ist besonders nützlich, wenn du Excel alle Blätter schützen möchtest, aber einige davon von diesem Schutz ausnehmen willst.
- Öffne deine Excel-Arbeitsmappe.
- Drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Füge ein neues Modul hinzu:
Einfügen > Modul.
- Kopiere den folgenden Code in das Modul:
Public Sub Workbook_Open()
Dim pw As String
pw = "test-password" ' Hier das Passwort setzen
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Tabelle1", "Tabelle4" ' Diese Blätter bleiben ungeschützt
Case Else
ws.Protect pw ' Blattschutz anwenden
End Select
Next ws
End Sub
- Schließe den VBA-Editor und speichere die Arbeitsmappe.
- Schließe und öffne die Arbeitsmappe erneut, um den Code auszuführen.
Häufige Fehler und Lösungen
-
Fehler: Blattschutz wird auf die falschen Blätter angewendet.
- Lösung: Überprüfe die Namen der Blätter in deinem Code. Achte darauf, dass keine Leerzeichen oder Tippfehler vorhanden sind.
-
Fehler: Blätter bleiben ungeschützt, obwohl sie im Code aufgelistet sind.
- Lösung: Stelle sicher, dass der Code im richtigen Workbook ausgeführt wird und dass die Blätter tatsächlich existieren.
Alternative Methoden
Wenn du den Blattschutz für bestimmte Zellen innerhalb eines Blattes frei geben möchtest, kannst du die Zellen zunächst auswählen und dann den Blattschutz anwenden:
- Wähle die Zellen aus, die du frei geben möchtest.
- Klicke mit der rechten Maustaste und wähle
Zellen formatieren.
- Unter dem Tab
Schutz deaktiviere die Option Gesperrt.
- Schütze das Blatt wie oben beschrieben.
Diese Methode erlaubt dir, den Excel Blattschutz für bestimmte Zellen zu konfigurieren.
Praktische Beispiele
Angenommen, du hast eine Arbeitsmappe mit den Blättern "Tabelle1", "Tabelle2", "Tabelle3" und "Tabelle4". Du möchtest Tabelle1 und Tabelle4 ungeschützt lassen und die anderen mit einem Passwort schützen. Der oben angegebene Code erfüllt genau diese Anforderungen.
Tipps für Profis
- Verwende spezifische Passwörter und speichere sie sicher.
- Teste den Code in einer Kopie deiner Datei, um Datenverlust zu vermeiden.
- Nutze Kommentare im Code, um deine Absichten klarer zu machen.
FAQ: Häufige Fragen
1. Wie kann ich den Blattschutz für bestimmte Zellen aufheben?
Du kannst den Blattschutz aufheben, indem du auf Überprüfen > Blattschutz aufheben klickst und das Passwort eingibst.
2. Kann ich bestimmte Zellen sperren, ohne das gesamte Blatt zu schützen?
Ja, du kannst Zellen sperren, indem du sie auswählst, dann Zellen formatieren > Schutz > Gesperrt aktivierst und den Blattschutz anschließend anwendest.
3. Was mache ich, wenn ich das Passwort vergessen habe?
Es gibt keine einfache Möglichkeit, einen Blattschutz ohne Passwort aufzuheben. In diesem Fall musst du einen VBA-Code verwenden oder auf andere spezialisierte Software zurückgreifen.