Wie werden alle Arbeitsblätter beim Schließen der Excel-Arbeitsmappe automatisch geschützt?
Normalerweise können Sie ein Arbeitsblatt oder die gesamte Arbeitsmappe manuell mit einem Kennwort mit der Funktion "Blatt schützen" oder "Arbeitsmappe schützen" in Excel schützen. Was können Sie tun, wenn Sie alle Arbeitsblätter beim Schließen der Arbeitsmappe automatisch mit einem Kennwort schützen möchten? Dieser Artikel zeigt Ihnen eine VBA-Methode, um dies zu erreichen.
Schützen Sie alle Arbeitsblätter, wenn Sie die Excel-Arbeitsmappe mit VBA-Code schließen
Schützen Sie alle Arbeitsblätter, wenn Sie die Excel-Arbeitsmappe mit VBA-Code schließen
Wenden Sie den folgenden VBA-Code an, um alle Arbeitsblätter beim Schließen der Arbeitsmappe automatisch zu schützen.
1. In der Arbeitsmappe, in der Sie alle Arbeitsblätter beim Schließen der Datei schützen möchten, drücken Sie bitte die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Doppelklicken Sie im Fenster auf DiesesWorkbook Klicken Sie im linken Bereich unter den VBA-Code in das Codefenster. Siehe Screenshot:
VBA-Code: Schützen Sie alle Arbeitsblätter beim Schließen der Arbeitsmappe
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
Tips:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Protect "123"
ActiveWorkbook.Save
End Sub3. Drücken Sie dann die Taste Andere + Q Tasten zum Schließen des Fensters Microsoft Visual Basic für Applikationen.
Nach dem obigen Schritt werden alle Arbeitsblätter oder das angegebene Arbeitsblatt beim Schließen der Arbeitsmappe automatisch geschützt.
Notizen:
In Verbindung stehende Artikel:
- Wie verwende ich eine Dropdown-Liste in einem geschützten Arbeitsblatt in Excel?
- Wie kann ich bestimmte Zellen sperren, ohne das gesamte Arbeitsblatt in Excel zu schützen?
- Wie kann ich die Formel ausblenden, aber das Ergebnis anzeigen, ohne das Arbeitsblatt in Excel zu schützen?
Beste Office-Produktivitätstools
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
