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
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.
Kutools for Excel, mit mehr als 120 Praktische Excel-Funktionen, steigern Ihre Arbeitseffizienz und sparen Arbeitszeit. | ||
Nach der 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.
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!