Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie werden automatisch alle Arbeitsblätter beim Schließen der Excel-Arbeitsmappe geschützt?

Normalerweise können Sie ein Arbeitsblatt oder die gesamte Arbeitsmappe mithilfe des Kennworts mit der Funktion "Blatt schützen" oder "Arbeitsmappe schützen" in Excel manuell schützen. Wenn Sie jedoch beim Schließen der Arbeitsmappe alle Arbeitsblätter automatisch mit einem Kennwort schützen möchten, was können Sie tun? Dieser Artikel zeigt Ihnen eine VBA-Methode, um dies zu erreichen.

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


Schützen Sie schnell mehrere / alle Arbeitsblätter mit Passwort gleichzeitig in der aktuellen Arbeitsmappe:

Das Arbeitsblatt schützen Nutzen von Kutools for Excel hilft Ihnen, mehrere oder alle Arbeitsblätter gleichzeitig mit einem Passwort zu schützen. Siehe unten Screenshot:

  • Aktivieren Sie die Arbeitsblatt schützen Nutzen
  • Überprüfen Sie die Arbeitsblätter, die Sie gleichzeitig schützen
  • Passwort angeben

Kutools for Excel: mit mehr als 200 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können. Laden Sie jetzt die kostenlose Testversion herunter!

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und andere Elemente zu Ihren Favoriten hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20-Textfunktionen: Extrahieren Sie die Nummer aus der Textzeichenfolge. Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umrechnen ...
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einer; Mehrere Zellen / Zeilen / Spalten zusammenführen, ohne Daten zu verlieren; Doppelte Zeilen und Summe zusammenführen ...
  • Geteilte Werkzeuge: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe in mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten ...
  • Einfügen überspringen Versteckte / Gefilterte Zeilen; Zählung und Summe nach Hintergrundfarbe; Mailingliste erstellen und Senden Sie E-Mails nach dem Wert von Cell...
  • Super Filter: Erstellen Sie erweiterte Filterschemata und wenden Sie diese auf alle Blätter an. Art nach Woche, Tag, Häufigkeit und mehr; Filtern durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2019 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation.

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


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

1. Klicken Sie in der Arbeitsmappe, in der Sie alle Arbeitsblätter beim Schließen der Datei schützen möchten, auf die Schaltfläche Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Fenster, doppelklicken Sie auf DiesesWorkbook im linken Fensterbereich und kopieren Sie dann den VBA-Code in das Code-Fenster. Siehe Screenshot:

VBA-Code: Schützt 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

Notizen:

1) Im Code geben Sie bitte 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 der folgende VBA-Code Ihnen 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 Schlüssel, um das Microsoft Visual Basic für Applikationen-Fenster zu schließen.

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 Dateiformat für Excel-Makro-Arbeitsmappe speichern.

2. Bitte gehen Sie zu dem bestimmten Arbeitsblatt, klicken Sie auf Review > 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:


Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einlegen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (Bearbeiten Sie mühelos mehrere Textzeilen und Formeln); Layout lesen (Leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt der Zellen teilen; Kombinieren Sie doppelte Zeilen / Spalten... Doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie "Duplizieren" oder "Eindeutig" Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufallsauswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen auf mehrere Blätter; Bullets einfügen, Kontrollkästchen und mehr ...
  • Extract Text, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen; Erstellen und Drucken von Paging-Zwischensummen; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Superfilter (Speichere und wende Filterschemata auf andere Blätter an); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Arbeitsmappen und Arbeitsblätter kombinieren; Zusammenführen von Tabellen basierend auf Schlüsselspalten; Daten in mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Kostenlose 30-Testversion für alle Funktionen.
Registerkarte Tab 201905

Registerkarte "Office" Bringt die Benutzeroberfläche mit Registerkarten in Office und vereinfacht Ihre 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 täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.