Direkt zum Inhalt

Wie schütze ich mehrere Arbeitsblätter gleichzeitig in Excel?

Angenommen, Sie haben eine Arbeitsmappe, die mehrere Arbeitsblätter enthält, und jetzt müssen Sie alle Arbeitsblätter oder bestimmte Arbeitsblätter schützen, normalerweise in Excel. Sie können das Blatt nur einzeln mit der Funktion "Blatt schützen" schützen. Diese Methode ist jedoch langwierig und mühsam Zeitaufwändig, wenn zahlreiche Blätter geschützt werden müssen. Wie können Sie mehrere Blätter gleichzeitig in Excel schnell und einfach schützen?

Schützen Sie alle Blätter gleichzeitig mit VBA-Code

Schützen Sie mehrere Blätter gleichzeitig mit Kutools for Excel

Deaktivieren Sie mehrere Blätter gleichzeitig mit kutools for Excel


Pfeil blau rechte Blase Schützen Sie alle Blätter gleichzeitig mit VBA-Code

Mit dem folgenden VBA-Code können Sie alle Blätter der aktiven Arbeitsmappe gleichzeitig mit demselben Kennwort schützen. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Schützen Sie alle Arbeitsblätter in einer Arbeitsmappe gleichzeitig:

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. Dann drücken F5 Geben Sie den Schlüssel ein, um den Code auszuführen, und geben Sie das Kennwort für die geschützten Blätter in das Eingabeaufforderungsfeld ein (siehe Abbildung):

doc-protected-multiple-sheet1-1

4. Klicken Sie OKGeben Sie das Kennwort erneut ein, um das Kennwort zu bestätigen.

doc-protected-multiple-sheet2-2

5. Dann klick OKund alle Blätter wurden mit demselben Passwort geschützt.


Pfeil blau rechte Blase Schützen Sie mehrere Blätter gleichzeitig mit Kutools for Excel

Manchmal möchten Sie nicht alle Blätter in Ihrer Arbeitsmappe schützen und nur einige bestimmte Blätter schützen. In dieser Situation funktioniert der obige Code nicht. Aber mit Kutools for Excel Arbeitsblatt schützen Mit diesem Dienstprogramm können Sie sowohl alle Blätter als auch bestimmte Blätter schnell und einfach schützen.

Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 60 Tagen ohne Einschränkung testen

Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor:

1. Klicken Sie Kutoolen Plus > Arbeitsblatt schützen, siehe Screenshot:

2. In dem Arbeitsblatt schützen Wählen Sie im Dialogfeld die Blätter aus, die Sie schützen möchten. (Standardmäßig sind alle Arbeitsblätter in der aktuellen Arbeitsmappe aktiviert.) Siehe Screenshot:

doc-protected-multiple-sheet4-4

3. Und klicken Sie auf OKGeben Sie das Kennwort im Dialogfeld Arbeitsblatt schützen ein und bestätigen Sie es. Siehe Screenshot:

doc-protected-multiple-sheet5-5

4. Dann klick OKwurden die ausgewählten Arbeitsblätter geschützt.

Klicken Sie auf Arbeitsblatt schützen, um weitere Informationen zu dieser Funktion zu erhalten.


Pfeil blau rechte Blase Deaktivieren Sie mehrere Blätter gleichzeitig mit kutools for Excel

Wie können Sie den Schutz mehrerer geschützter Arbeitsblätter in einer Arbeitsmappe gleichzeitig aufheben? Na sicher, Kutools for Excel Außerdem stellt die Arbeitsblatt aufheben Dienstprogramm, mit dem Sie den Schutz sofort aufheben können.

Bitte machen Sie folgende Schritte:

1. Öffnen Sie Ihre Arbeitsmappe mit den geschützten Arbeitsblättern.

2. Dann klick Kutoolen Plus > Arbeitsblatt aufheben, siehe Screenshot:

3. In dem Arbeitsblatt aufheben Im Dialogfeld werden die geschützten Blätter im Listenfeld aufgelistet. Klicken Sie dann auf Ok Schaltfläche, siehe Screenshot:

doc-protected-multiple-sheet7-7

4. Und dann a Arbeitsblatt aufheben Das Dialogfeld wird angezeigt, um Sie daran zu erinnern, dass Sie das Kennwort eingegeben haben, das Sie zum Schutz der Arbeitsblätter erstellt haben. Siehe Screenshot:

doc-protected-multiple-sheet8-8

5. Klicken Sie nach Eingabe des Passworts auf OkAlle aktivierten Arbeitsblätter im Listenfeld sind ungeschützt.

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

Weitere Informationen zu dieser Funktion zum Aufheben des Schutzes des Arbeitsblatts.

Kutools für Excel jetzt herunterladen und kostenlos testen!


Pfeil blau rechte Blase Demo: Schützen oder deaktivieren Sie alle Arbeitsblätter gleichzeitig mit Kutools for Excel

Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen!

In Verbindung stehender Artikel:

Wie hebe ich den Schutz mehrerer Arbeitsblätter gleichzeitig in Excel auf?

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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 ...

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 jeden Tag Hunderte von Mausklicks für Sie!
Comments (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to use this in a shared workbook but I get a Microsoft Visual Basic error "Run-time error '1004": Application-defined or object-defined error" I am just looking for suggestions on how to get around this. Any help would be appreciated
This comment was minimized by the moderator on the site
Occurs when sheet is already locked
This comment was minimized by the moderator on the site
Thanks for the wonder full tool to protect & unprotect all the sheets at a time. Please guide me I am able to unprotect all sheets in my work book at a time but when I run protect all sheets VBA Code then only first 4 sheets are protected & rest or left unprotected. Please help me to sort out the issue.
This comment was minimized by the moderator on the site
How do I mask the password using the VBA method? I can not find this information via google or F1 help files. Thanks in advance!
This comment was minimized by the moderator on the site
Hi I used this code now I it wont accept my password to get back into my spreadsheet !!
This comment was minimized by the moderator on the site
I have chart tabs and worksheets in my Excel 2013 workbook. The VBA coding above works for the protecting the worksheets but not the separate chart tabs. How do i password protect the multiple chart tabs and multiple worksheets in my workbook? Thanks!
This comment was minimized by the moderator on the site
Hey, I need some help, the above code was very helpful, but it locks the sort (auto filter as well) can you please provide code to solve that problem and also where it would be inserted. Thank you in advance.
This comment was minimized by the moderator on the site
Thank you! This is awesome, I was even able to modify the VBA code so that I could unprotect all sheets at once! :) Sub unprotect_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 Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets B4 running this Macro." End Sub
This comment was minimized by the moderator on the site
when i activated this VBA, hyperlink doesn't work. how can i make them work? tnx :)
This comment was minimized by the moderator on the site
I am suddenly having the 1004 error as well. Anyone find a solution?
This comment was minimized by the moderator on the site
I'm suddenly having the error 1004 issue. Have been using the macro for months now it randomly fails.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations