Wie schützt man mehrere Arbeitsblätter gleichzeitig in Excel?

Angenommen, Sie haben eine Arbeitsmappe mit mehreren Arbeitsblättern und müssen nun alle oder bestimmte Arbeitsblätter schützen. Normalerweise können Sie in Excel die Blätter nur einzeln mit der Funktion „Blatt schützen“ schützen. Diese Methode ist jedoch mühsam und zeitaufwendig, wenn viele Blätter geschützt werden müssen. Wie schützen Sie mehrere Blätter auf einmal schnell und einfach in Excel?

Alle Blätter auf einmal mit VBA-Code schützen

Mehrere Blätter auf einmal mit Kutools für Excel schützen

Mehrere Blätter auf einmal mit Kutools für Excel entschützen

Alle Blätter auf einmal mit VBA-Code schützen

Mit dem folgenden VBA-Code können Sie alle Blätter der aktiven Arbeitsmappe auf einmal mit demselben Kennwort schützen. Gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Alle Arbeitsblätter in einer Arbeitsmappe auf einmal schützen:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. Drücken Sie dann die F5-Taste, um den Code auszuführen, und geben Sie das Kennwort für die geschützten Blätter im Eingabefeld ein, siehe Screenshot:

4. Klicken Sie auf OK und geben Sie das Kennwort erneut ein, um es zu bestätigen.

5. Klicken Sie dann auf OK, und alle Blätter wurden mit demselben Kennwort geschützt.

Mehrere Blätter auf einmal mit Kutools für Excel schützen

Manchmal möchten Sie nicht alle Blätter in Ihrer Arbeitsmappe schützen, sondern nur bestimmte Blätter. In diesem Fall funktioniert der obige Code nicht. Mit dem Schutz-Arbeitsblatt-Dienstprogramm von Kutools für Excel können Sie sowohl alle als auch bestimmte Blätter schnell und einfach schützen.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Klicken Sie auf Kutools Plus > Schützen Sie das Arbeitsblatt, siehe Screenshot:

2. Wählen Sie im Dialogfeld „Arbeitsblatt schützen“ die Blätter aus, die geschützt werden sollen. (Standardmäßig sind alle Arbeitsblätter in der aktuellen Arbeitsmappe markiert.) Siehe Screenshot:

3. Klicken Sie auf OK und geben Sie das Kennwort im Dialogfeld „Arbeitsblatt schützen“ ein und bestätigen Sie es. Siehe Screenshot:

4. Klicken Sie dann auf OK, die ausgewählten Arbeitsblätter wurden geschützt.

Klicken Sie auf „Schützen Sie das Arbeitsblatt“, um mehr über diese Funktion zu erfahren.

Mehrere Blätter auf einmal mit Kutools für Excel entschützen

Wie könnten Sie mehrere geschützte Arbeitsblätter in einer Arbeitsmappe gleichzeitig entschützen? Natürlich bietet Kutools für Excel auch das Dienstprogramm „Arbeitsblatt entschützen“ an, um diese auf einmal zu entschützen.

Bitte gehen Sie wie folgt vor:

1. Öffnen Sie Ihre Arbeitsmappe, die die geschützten Arbeitsblätter enthält.

2. Klicken Sie dann auf Kutools Plus > Arbeitsblatt entschützen, siehe Screenshot:

3. Im Dialogfeld „Arbeitsblatt entschützen“ werden die geschützten Blätter in die Liste eingetragen, klicken Sie dann auf die Schaltfläche OK, siehe Screenshot:

4. Anschließend erscheint ein Dialogfeld „Arbeitsblatt entschützen“, das Sie auffordert, das Kennwort einzugeben, das Sie zum Schutz der Arbeitsblätter erstellt haben, siehe Screenshot:

5. Nachdem Sie das Kennwort eingegeben haben, klicken Sie auf OK, alle markierten Arbeitsblätter in der Liste wurden entschützt.

Hinweis: Die Arbeitsblätter müssen dasselbe Kennwort haben.

Um mehr über diese Funktion „Arbeitsblatt entschützen“ zu erfahren.

Demo: Alle Arbeitsblätter auf einmal mit Kutools für Excel schützen oder entschützen

Verwandter Artikel:

Wie entschützt man mehrere Arbeitsblätter auf einmal in Excel?