Direkt zum Inhalt

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:

1) Bitte geben Sie im Code Ihr Passwort in der Zeile xPsw = "" an.
2) Wenn Sie beim Schließen der Arbeitsmappe nur ein bestimmtes Arbeitsblatt automatisch schützen möchten, kann Ihnen der folgende VBA-Code helfen.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. 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:

1. Sie müssen die Arbeitsmappe als Excel Macro-Enabled Workbook-Dateiformat speichern.
2. Gehen Sie zu dem bestimmten Arbeitsblatt und klicken Sie auf Überprüfung > Blattschutz aufheben. Geben Sie dann das Kennwort ein, das Sie im VBA-Code angegeben haben, um den Schutz dieses Arbeitsblatts aufzuheben.

In Verbindung stehende Artikel:

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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 ...

kte tab 201905


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations