Note: The other languages of the website are Google-translated. Back to English

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?


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
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!
officetab unten
Kommentare (21)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Großartig – wie kann man sie alle auf einmal entschützen? Ich bin ein Amateur, also brauche ich mehr Informationen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
[quote]Großartig – wie kann man sie alle auf einmal entschützen? Ich bin ein Amateur, also brauche ich mehr Informationen.Von Kristin Dzugan[/quote] :-) Sie können den Schutz einfach als aufheben http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Passwort verifizieren") 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 "Ich glaube, Sie haben einige Blätter, die bereits geschützt sind. Bitte heben Sie den Schutz aller Blätter B4 auf, auf denen dieses Makro ausgeführt wird." End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich danke dir sehr :-)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie Kristin sagte, wie entschützt man sie alle auf einmal?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie kann ich den Schutz ohne kutools aufheben?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
[quote]Also, wie hebe ich den Schutz ohne kutools auf?Von cz[/quote] Sie können den Schutz des Arbeitsblatts ohne Kutools für Excel aufheben. Sie müssen nur mit der rechten Maustaste auf die Blattregisterkarte klicken, die Sie entschützen möchten, und auf den Befehl Blattschutz aufheben klicken und dann Ihr Passwort eingeben. :-)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wenn ich den Code einfüge, kommt "Laufzeitfehler 1004??, der Folgendes gelb hervorhebt ... s.Protect Password:=pass
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe plötzlich auch den 1004-Fehler. Ich benutze das Makro seit Monaten, aber jetzt läuft es nicht mehr.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich hatte dieses Problem auch. Es stellt sich heraus, dass es nicht ausgeführt werden kann, wenn Sie alle Blätter in der Arbeitsmappe ausgewählt haben. Versuchen Sie, nur ein Blatt auszuwählen und dann auszuführen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe plötzlich das Problem mit dem Fehler 1004. Ich benutze das Makro seit Monaten, jetzt schlägt es zufällig fehl.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe plötzlich auch den 1004-Fehler. Findet jemand eine Lösung?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wenn ich dieses VBA aktiviert habe, Hyperlink funktioniert nicht. wie kann ich sie zum laufen bringen? tnx :)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke! Das ist großartig, ich konnte sogar den VBA-Code so ändern, dass ich den Schutz aller Blätter auf einmal aufheben konnte! :) Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Passwort verifizieren") 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 "Ich glaube, Sie haben einige Blätter, die bereits geschützt sind. Bitte heben Sie den Schutz aller Blätter B4 auf, auf denen dieses Makro ausgeführt wird." End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hey, ich brauche etwas Hilfe, der obige Code war sehr hilfreich, aber er sperrt die Sortierung (auch Autofilter). Können Sie bitte Code zur Lösung dieses Problems bereitstellen und auch, wo er eingefügt werden würde. Vielen Dank im Voraus.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe Diagrammregisterkarten und Arbeitsblätter in meiner Excel 2013-Arbeitsmappe. Die obige VBA-Codierung funktioniert zum Schutz der Arbeitsblätter, jedoch nicht der separaten Diagrammregisterkarten. Wie schütze ich die mehreren Diagrammregisterkarten und mehrere Arbeitsblätter in meiner Arbeitsmappe mit einem Passwort? Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe diesen Code jetzt verwendet, ich werde mein Passwort nicht akzeptieren, um wieder in meine Tabelle zu gelangen !!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie maskiere ich das Passwort mit der VBA-Methode? Ich kann diese Informationen nicht über Google oder die F1-Hilfedateien finden. Danke im Voraus!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für das wunderbare vollständige Tool zum gleichzeitigen Schützen und Aufheben des Schutzes aller Blätter. Bitte führen Sie mich, ich kann den Schutz aller Blätter in meinem Arbeitsbuch gleichzeitig aufheben, aber wenn ich den Schutz aller Blätter VBA-Code ausführe, sind nur die ersten 4 Blätter geschützt und verbleiben oder ungeschützt bleiben. Bitte helfen Sie mir, das Problem zu lösen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich versuche, dies in einer freigegebenen Arbeitsmappe zu verwenden, aber ich erhalte einen Microsoft Visual Basic-Fehler „Laufzeitfehler '1004: Anwendungsdefinierter oder objektdefinierter Fehler“ Ich suche nur nach Vorschlägen, wie ich dies umgehen kann Hilfe wäre willkommen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Tritt auf, wenn das Blatt bereits gesperrt ist
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL