Wie schütze ich alle Arbeitsmappen in einem Ordner gleichzeitig in Excel?

In Excel können Sie eine Arbeitsmappe schützen, um zu verhindern, dass andere Benutzer sie bearbeiten. Haben Sie jedoch jemals ein Bild erstellt, um mehrere Arbeitsmappen gleichzeitig zu schützen? Hier stelle ich einige Tricks zum Schutz aller Arbeitsmappen in einem Ordner und mehrerer Blätter in einer Arbeitsmappe in Excel vor.

Schützen Sie Arbeitsmappen in einem Ordner sofort mit VBA

Schützen Sie mehrere Blätter gleichzeitig mit Kutools for Excel

Tolle! Verwenden effizienter Registerkarten in Excel wie Chrome, Firefox und Safari!

Sparen Sie 50% Ihrer Zeit und reduzieren Sie jeden Tag Tausende von Mausklicks für Sie!

Schützen Sie Arbeitsmappen in einem Ordner sofort mit VBA

Um Arbeitsmappen in einem bestimmten Ordner zu schützen, können Sie einen zu lösenden Makrocode anwenden.

1. Aktivieren Sie eine neue Arbeitsmappe und drücken Sie Alt + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applications Fenster und klicken Sie auf Insert > Module, und fügen Sie den folgenden Code in das ein Modul Skripte.

VBA: Arbeitsmappen in einem Ordner schützen.

Sub ProtectAll()
    Dim xWorkBooks As Workbook
    Dim xExitFile As String
    Dim xPassWord As Variant
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then
        Exit Sub
    Else
        xStrPath = xStrPath + "\"
    End If
    xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
    If (xPassWord = False) Or (xPassWord = "") Then
        MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xFile = "*.xls"
    xExitFile = Dir(xStrPath & xFile)
    On Error Resume Next
    Application.ScreenUpdating = False
    Do While xExitFile <> ""
        Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
        Application.DisplayAlerts = False
        xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
        Application.DisplayAlerts = True
        Workbooks(xExitFile).Close False
        Set xWorkBooks = Nothing
        xExitFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub

2. Drücken Sie F5 Schlüssel und a Wählen Sie einen Ordner Das Fenster wird geöffnet, in dem Sie einen Ordner auswählen können, um alle Arbeitsblätter zu schützen.

3 Klicken OK und ein Dialogfeld zur Eingabe eines Kennworts zum Schutz von Arbeitsmappen wird angezeigt.

4 Klicken OKEs erscheint ein Dialogfeld, das Sie daran erinnert, dass alle Arbeitsmappen im ausgewählten Ordner erfolgreich mit einem Kennwort geschützt wurden.

Wenn Sie die Arbeitsmappen öffnen, die Sie durch den obigen Code geschützt haben, wird ein Dialogfeld zur Eingabe des Kennworts angezeigt. Siehe Screenshot:

Tipp: Dieser Code funktioniert für die Excel-Version 2007 oder höher. Wenn Sie ihn zum Schutz der niedrigeren Version anwenden möchten, können Sie ihn ändern xFile = "* .xls" zu xFile = "* .xlsx" im Code.

Schützen Sie mehrere Blätter gleichzeitig mit Kutools for Excel

Tatsächlich wird es in unserer täglichen Arbeit häufiger vorkommen, mehrere Blätter in einer Arbeitsmappe zu schützen. In Excel müssen Sie die Blätter jedoch einzeln mit der integrierten Funktion schützen. Es gibt jedoch ein mächtiges Werkzeug - Kutools for Excel, seine Arbeitsblatt schützen Mit dem Dienstprogramm können Sie alle Blätter oder ausgewählten Blätter der Arbeitsmappe gleichzeitig schützen.

Nachher kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1. Aktivieren Sie die Arbeitsmappe, deren Blätter Sie schützen möchten, und klicken Sie auf Unternehmen > Arbeitsblatt schützen. Siehe Screenshot:

2. In dem Arbeitsblatt schützen Im Dialogfeld können Sie die Blätter, die Sie schützen möchten, anhand der Liste überprüfen. Siehe Screenshot:

3 Klicken Okund ein weiteres Dialogfeld zum Eingeben und erneuten Eingeben des Kennworts wird angezeigt (siehe Abbildung):

4 Klicken Okund ein Dialogfeld wird angezeigt, um Sie daran zu erinnern, dass Sie Arbeitsblätter erfolgreich schützen.

Um den Schutz dieser Blätter aufzuheben, müssen Sie nur auf klicken Unternehmen > Arbeitsblatt aufheben Passwort zum Aufheben des Schutzes eingeben.

Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

• Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
• Super Formula Bar (leicht mehrere Textzeilen und Formeln bearbeiten); 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 geteilter Zellen; 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; Zufällige Auswahl ...
• Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
• Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
• Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
• Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung 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. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.

Lesen Sie mehr... Kostenfreier Download... Kauf... 

---

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 täglich Hunderte von Mausklicks für Sie!

Lesen Sie mehr... Kostenfreier Download... Kauf...