Wie schützt man beim Schließen einer Excel-Arbeitsmappe automatisch alle Arbeitsblätter?

Normalerweise können Sie ein Arbeitsblatt oder die gesamte Arbeitsmappe manuell mithilfe der Funktionen „Arbeitsblatt schützen“ bzw. „Arbeitsmappe schützen“ in Excel per Passwort sichern. Doch was tun, wenn alle Arbeitsblätter beim Schließen der Arbeitsmappe automatisch mit einem Passwort geschützt werden sollen? In diesem Artikel erfahren Sie, wie Sie dies mithilfe einer VBA-Methode erreichen.

Schützen Sie alle Arbeitsblätter beim Schließen der Excel-Arbeitsmappe mit VBA-Code

Schützen Sie alle Arbeitsblätter beim Schließen der Excel-Arbeitsmappe mit VBA-Code

Um beim Schließen einer Arbeitsmappe automatisch alle Arbeitsblätter zu schützen, verwenden Sie bitte den folgenden VBA-Code.

1. Drücken Sie in der Arbeitsmappe, in der Sie alle Arbeitsblätter beim Schließen der Datei schützen möchten, die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Doppelklicken Sie im Fenster Microsoft Visual Basic für Applikationen im linken Bereich auf DieseArbeitsmappe und kopieren Sie anschließend den unten stehenden VBA-Code in das Code-Fenster. Siehe Screenshot:

VBA-Code: Alle Arbeitsblätter beim Schließen der Arbeitsmappe schützen

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
    Dim xSheet As Worksheet
    Dim xPsw As String
    xPsw = ""
    For Each xSheet In Worksheets
        xSheet.Protect xPsw
    Next
End Sub

Tipps:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. Drücken Sie anschließend die Tastenkombination Alt+Q, um das Microsoft Visual Basic für Applikationen-Fenster zu schließen.

Nach dem obigen Schritt werden beim Schließen der Arbeitsmappe automatisch alle Arbeitsblätter bzw. das angegebene Arbeitsblatt geschützt.

Hinweise:

Verwandte Artikel:

• Wie verwendet man eine Dropdown-Liste in einem geschützten Excel-Arbeitsblatt?
• Wie kann man bestimmte Zellen in Excel sperren, ohne das gesamte Arbeitsblatt zu schützen?
• Wie blendet man Formeln in Excel aus, sodass nur das Ergebnis sichtbar ist – und das ganz ohne Arbeitsblattschutz?

Beste Office-Produktivitätstools

🤖	KUTOOLS AI-Assistent: Revolutionieren Sie Datenanalyse basierend auf:Intelligente Ausführung   |  Code generieren|  benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme erstellen|  Erweiterte Funktionen aufrufen…
	Beliebte Funktionen:Suchen, hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten kombinieren oder Zellen ohne Datenverlust   |   Runden ohne Formel...
	Erweiterte SVERWEIS:VLookup mit mehreren Kriterien  |  VLookup mit mehreren Werten  |   VLookup über mehrere Arbeitsblätter hinweg   |   Fuzzy Match....
	Erweiterte Dropdown-Liste:Schnell eine Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl-Dropdown-Liste....
	Spalten-Manager:Eine bestimmte Anzahl von Spalten hinzufügen|Spalten verschieben|Sichtbarkeitsstatus ausgeblendeter Spalten umschalten|Bereiche & Spalten vergleichen...
	Hervorgehobene Funktionen:Gitterfokus   |  Entwurf   |Erweiterte Formelleiste   | Arbeitsmappen- & Blatt-Manager   |  Ressourcenbibliothek(AutoText)|  Datumsauswahl   |  Arbeitsblätter konsolidieren  |  Verschlüsseln/Zellen entschlüsseln   | E-Mails per Liste versenden   |  Super Filter   |   Spezialfilter(Zellen mit fettgedruckter Schrift filtern/kursiv/durchgestrichen...) ...
	Top-15-Toolsets:12-Text-Tools(Text hinzufügen,Bestimmte Zeichen löschen, ...)|   50+-Diagramm-Typen(Gantt-Diagramm, ...)|   40+ Praktische Formeln(Alter basierend auf dem Geburtstag berechnen, ...)|   19-Einfüge-Tools(QR-Code einfügen,Bild aus Pfad einfügen, ...)|   12-Konvertierungs-Tools(In Wörter umwandeln,Wechselkursumrechnung, ...)|   7-Vereinigen/Aufteilen-Tools(Erweiterte Zeilen zusammenführen,Zellen aufteilen, ...)|... und mehr

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und 40+ weitere Sprachen!

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...

Weitere Details zu Kutools für Excel...Kostenloser Download...

---

Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher

• Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
• Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
• Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!

Weitere Details zu Office Tab...Kostenloser Download...

---

Alle Kutools-Add-Ins – ein Installationsprogramm

Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.

• Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
• Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
• Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
• 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
• Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins

Weitere Details zu Kutools for Office...Kostenloser Download...