gibt es eine Möglichkeit (ggf. auch VBA) für alle oder auch für mehrere selektierte Tabellenblätter gleichzeitig den Blattschutz einzugeben bzw. aufzuheben?
Wäre toll wenn jemand eine Lösung wüßte.
Gruß, Harald G.
Option Explicit
Dim WsTabelle As Worksheet
Private Sub Aufheben()
For Each WsTabelle In Sheets
WsTabelle.Unprotect ("Passwort")
Next WsTabelle
End Sub
Private Sub Schutz()
For Each WsTabelle In Sheets
WsTabelle.Protect ("Passwort")
Next WsTabelle
End Sub
Um den Blattschutz für mehrere Blätter gleichzeitig aufzuheben, kannst du ein VBA-Makro verwenden. Folge diesen Schritten:
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu starten.
Klicke im Menü auf Einfügen > Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:
Option Explicit
Dim WsTabelle As Worksheet
Sub Aufheben()
For Each WsTabelle In ThisWorkbook.Sheets
WsTabelle.Unprotect "Passwort" ' Ersetze "Passwort" mit deinem tatsächlichen Passwort
Next WsTabelle
End Sub
Sub Schutz()
For Each WsTabelle In ThisWorkbook.Sheets
WsTabelle.Protect "Passwort" ' Ersetze "Passwort" mit deinem tatsächlichen Passwort
Next WsTabelle
End Sub
Schließe den VBA-Editor.
Um das Makro auszuführen, drücke ALT + F8
, wähle Aufheben
aus und klicke auf Ausführen.
Jetzt ist der Blattschutz für alle Blätter in deiner Excel-Datei aufgehoben.
Fehler: "Blattschutz konnte nicht aufgehoben werden."
Fehler: Makro läuft nicht.
Wenn du den Blattschutz für alle Blätter gleichzeitig aufheben möchtest, ohne ein Makro zu verwenden, kannst du dies manuell tun:
CTRL
-Taste gedrückt und klicke auf die Registerkarten der Blätter, die du bearbeiten möchtest.Diese Methode ist jedoch weniger effizient, wenn du viele Blätter gleichzeitig bearbeiten möchtest.
Hier sind einige Beispiele, wie du den Blattschutz für mehrere Tabellenblätter in Excel aufheben kannst:
Beispiel 1: Wenn du alle Blätter in einer Arbeitsmappe schützen möchtest, kannst du das obige Makro verwenden, um den Blattschutz für alle Blätter gleichzeitig aufzuheben.
Beispiel 2: Wenn du nur bestimmte Blätter schützen möchtest, kannst du das Makro anpassen, indem du die Bedingung im For Each
-Loop veränderst:
If WsTabelle.Name = "Tabelle1" Or WsTabelle.Name = "Tabelle2" Then
WsTabelle.Unprotect "Passwort"
End If
1. Wie kann ich den Blattschutz für alle Blätter gleichzeitig aufheben? Du kannst ein VBA-Makro verwenden, das den Blattschutz für alle Blätter in deiner Arbeitsmappe aufhebt, wie im obigen Beispiel gezeigt.
2. Kann ich den Blattschutz für mehrere Blätter gleichzeitig ohne Makro aufheben?
Ja, du kannst die CTRL
-Taste verwenden, um mehrere Blätter auszuwählen und dann den Blattschutz manuell aufheben. Dies ist jedoch weniger effizient.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen