Dieser Schutz trägt auch dazu bei, die Datenkonsistenz zu wahren und die Wahrscheinlichkeit von Fehlern zu verringern.
Im Folgenden finden Sie ein Beispiel für VBA-Code, den Sie verwenden können, um alle Arbeitsblätter in einer Arbeitsmappe mit einem Kennwort zu schützen:
Sub ProtectAllSheets()
Dim ws As Worksheet
Dim password As String
password = “Test123”
For Each ws In Worksheets
ws.Protect Password:=password
Next ws
End SubErklärung des Codes:
- Dim password As String: Deklariert eine Passwortvariable zum Speichern des zu verwendenden Passworts.
- password = “Test123”: Legt den Standardwert für das Passwort fest. Sie können “Test123” durch das gewünschte Passwort ersetzen.
- ws.Protect Password:=password: Legt die Protect-Eigenschaft des Arbeitsblatts mit einem vordefinierten Kennwort fest, sodass das Arbeitsblatt geschützt wird.
So verwenden Sie Makros, um den Schutz aller Arbeitsblätter auf einmal aufzuheben
Das Aufheben des Schutzes eines Excel-Arbeitsblatts ist unerlässlich, wenn Sie zuvor gesperrte Daten ändern oder aktualisieren möchten. Wenn viele Arbeitsblätter passwortgeschützt sind, kann es sehr zeitaufwändig sein, sie einzeln zu öffnen.
Mithilfe von VBA-Makros können Sie den Schutz aller Arbeitsblätter in einer Arbeitsmappe schnell aufheben, um den Zugriff auf und die Bearbeitung von Daten zu erleichtern.
Im Folgenden finden Sie ein Beispiel für VBA-Code, mit dem Sie den Schutz aller Arbeitsblätter in einer Arbeitsmappe aufheben können:
Sub UnprotectAllSheets()
Dim ws As Worksheet
Dim password As String
password = “Test123”
For Each ws In Worksheets
ws.Unprotect Password:=password
Next ws
End SubErklärung des Codes:
- password = “Test123”: Legt den Standardwert für das Passwort fest. Sie müssen “Test123” durch das entsprechende Kennwort ersetzen.
- ws.Unprotect Password:=password: Verwendet das angegebene Passwort, um den Arbeitsblattschutz zu öffnen.