Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

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 gute Idee3

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie Ihren Favoriten die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und alles andere hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20 Textfunktionen: Nummer aus Textzeichenfolge extrahieren; Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umwandeln.
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einem; Zusammenführen mehrerer Zellen / Zeilen / Spalten ohne Datenverlust; Doppelte Zeilen und Summe zusammenführen.
  • Werkzeuge teilen: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe für mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten.
  • Einfügen überspringen Versteckte / gefilterte Zeilen; Zählen und summieren nach Hintergrundfarbe;; Senden Sie personalisierte E-Mails in großen Mengen an mehrere Empfänger.
  • Superfilter: Erstellen Sie erweiterte Filterschemata und wenden Sie sie auf alle Blätter an. Sortieren nach Woche, Tag, Häufigkeit und mehr; Filter 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.

Pfeil blau rechte Blase 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

 

doc schützt alle Arbeitsmappen eines Ordners 1

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.
doc schützt alle Arbeitsmappen eines Ordners 2

3 Klicken OK und ein Dialogfeld zur Eingabe eines Kennworts zum Schutz von Arbeitsmappen wird angezeigt.
doc schützt alle Arbeitsmappen eines Ordners 3

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

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

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.


Pfeil blau rechte Blase 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.

Kutools for Excel, mit mehr als 120 Praktische Excel-Funktionen, steigern Ihre Arbeitseffizienz und sparen Arbeitszeit.

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:
doc schützt alle Arbeitsmappen eines Ordners 6

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:
doc schützt alle Arbeitsmappen eines Ordners 7

3 Klicken Okund ein weiteres Dialogfeld zum Eingeben und erneuten Eingeben des Kennworts wird angezeigt (siehe Abbildung):
doc schützt alle Arbeitsmappen eines Ordners 8

4 Klicken Okund ein Dialogfeld wird angezeigt, um Sie daran zu erinnern, dass Sie Arbeitsblätter erfolgreich schützen.
doc schützt alle Arbeitsmappen eines Ordners 9

Um den Schutz dieser Blätter aufzuheben, müssen Sie nur auf klicken Unternehmen > Arbeitsblatt aufheben Passwort zum Aufheben des Schutzes eingeben.
doc schützt alle Arbeitsmappen eines Ordners 10

doc herunterladen 1


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.
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 täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Martin · 1 years ago
    Brilliant. Saves me nearly an hour every month. Thank you.
  • To post as a guest, your comment is unpublished.
    Mary · 3 years ago
    can you do the same code but for unprotecting? with option to browse for the folder
  • To post as a guest, your comment is unpublished.
    P · 3 years ago
    I'm getting a syntax error for the following: <span style="background-color...
    • To post as a guest, your comment is unpublished.
      Jessica · 6 months ago
      Did you fix this ? How?

  • To post as a guest, your comment is unpublished.
    ckshah · 4 years ago
    workbook protect ...great program....
    very helpful