Wie schützt man 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 sich aber schon einmal vorgestellt, mehrere Arbeitsmappen gleichzeitig zu schützen? Hier zeige ich Ihnen einige praktische Tricks, wie Sie alle Arbeitsmappen in einem Ordner sowie mehrere Arbeitsblätter innerhalb einer Arbeitsmappe in Excel effizient schützen können.
Arbeitsmappen in einem Ordner gleichzeitig mit VBA schützen
Mehrere Arbeitsblätter gleichzeitig mit Kutools für Excel schützen
Arbeitsmappen in einem Ordner gleichzeitig mit VBA schützen
Um Arbeitsmappen in einem bestimmten Ordner zu schützen, können Sie einen Makrocode nutzen.
1. Aktivieren Sie ein neues Arbeitsblatt und drücken Sie die Alt + F11-Tasten, um das Microsoft Visual Basic for Applications-Fenster zu öffnen. Klicken Sie anschließend auf Einfügen > Modul und fügen Sie den folgenden Code in das Modul-Skript ein.
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 die F5-Taste. Daraufhin öffnet sich das Fenster Ordner auswählen, in dem Sie einen Ordner wählen können, um alle zugehörigen Arbeitsblätter zu schützen.
3. Klicken Sie auf OK, und es öffnet sich ein Dialogfeld zur Eingabe des Passworts zum Schutz der Arbeitsmappe.
4. Klicken Sie auf OK, und es erscheint ein Dialogfeld, das bestätigt, dass alle Arbeitsmappen im ausgewählten Ordner erfolgreich mit einem einzigen Passwort geschützt wurden.
Beim Öffnen der mit dem obigen Code geschützten Arbeitsmappen erscheint ein Dialogfeld zur Passworteingabe. Siehe Screenshot:
Hinweis: Dieser Code funktioniert ab Excel 2007 oder höher. Möchten Sie ihn in älteren Versionen verwenden, ändern Sie im Code xFile = „*.xls" in xFile = „*.xlsx".
Mehrere Arbeitsblätter gleichzeitig mit Kutools für Excel schützen
Im täglichen Arbeitsablauf kommt es häufig vor, dass mehrere Arbeitsblätter innerhalb einer Arbeitsmappe geschützt werden müssen. In Excel müssen Sie standardmäßig jedoch jedes Arbeitsblatt einzeln mit der integrierten Funktion schützen. Abhilfe schafft hier ein leistungsstarkes Tool – Kutools für Excel, dessen Arbeitsblatt schützen-Funktion es Ihnen ermöglicht, alle oder ausgewählte Arbeitsblätter der Arbeitsmappe gleichzeitig zu schützen.
Nachdem Sie die kostenlose InstallationKutools für Excel abgeschlossen haben, gehen Sie wie folgt vor:
1. Öffnen Sie die Arbeitsmappe, deren Arbeitsblätter Sie schützen möchten, und klicken Sie auf KUTOOLS PLUS > Arbeitsblatt schützen > Arbeitsblätter schützen.
2. Im Arbeitsblatt schützen-Dialogfeld wählen Sie aus der Liste diejenigen Arbeitsblätter aus, die Sie nach Bedarf schützen möchten. Siehe Screenshot:
3. Klicken Sie auf OK, und es erscheint ein weiteres Dialogfeld, in dem Sie das Passwort eingeben und erneut bestätigen müssen. Siehe Screenshot:
4. Klicken Sie auf OK, und es öffnet sich ein Dialogfeld mit der Erfolgsmeldung „Arbeitsblätter 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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins