Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: mehrere Blätter auf einmal schützen

mehrere Blätter auf einmal schützen
01.10.2015 17:51:27
Sven
Hallo,
ich kapier´s nicht.
Ich möchte in meiner Arbeitsmappe alle Blätter auf einmal mit Blattschutz versehen und auch wieder aufheben.
Ich habe diesen gefunden:
Option Explicit
Dim WsTabelle As Worksheet
Private Sub Aufheben()
For Each WsTabelle In Sheets
WsTabelle.Unprotect ("Passwort")
Next WsTabelle
End Sub
Private Sub Schutz()
For Each WsTabelle In Sheets
WsTabelle.Protect ("Passwort")
Next WsTabelle
End Sub


Aber ich kann ihn einfach keiner Schatfläche zuordnen.
Kann mir jemand mit einem Beispiel weiter helfen?
Vielen Dank
Sven

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Blätter auf einmal schützen
01.10.2015 17:54:06
Hajo_Zi
Hallo Sven,
das liegt daran das Sie Privat sind und nur aus dem VBA Editor gestartet werden können.
Gruß Hajo

AW: mehrere Blätter auf einmal schützen
01.10.2015 18:09:18
Sven
Alles klar - jetzt hat´s klick gemacht...
Ich danke dir
LG
Sven

Anzeige
Quatsch
01.10.2015 21:12:50
Rudi
Hallo,
das geht durchaus,so lange die Prozedur in einem allgemeinen Modul steht.
Die Prozedur wird im Dialog lediglich nicht angezeigt.
Man muss nur den Namen der Prozedur eintippen.
Dito bei Option Private Module.
Gruß
Rudi
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Alle Blätter in Excel gleichzeitig schützen und aufheben


Schritt-für-Schritt-Anleitung

Um in Excel mehrere Blätter gleichzeitig zu schützen oder den Blattschutz aufzuheben, kannst du VBA (Visual Basic for Applications) verwenden. Hier sind die Schritte:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke im Menü auf Einfügen und wähle Modul.

  3. Füge den Code ein: Kopiere den folgenden Code in das Modul:

    Option Explicit
    Dim WsTabelle As Worksheet
    
    Sub Schutz()
        For Each WsTabelle In ThisWorkbook.Worksheets
            WsTabelle.Protect Password:="Passwort"
        Next WsTabelle
    End Sub
    
    Sub Aufheben()
        For Each WsTabelle In ThisWorkbook.Worksheets
            WsTabelle.Unprotect Password:="Passwort"
        Next WsTabelle
    End Sub
  4. Führe das Makro aus: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle das Makro Schutz oder Aufheben aus und klicke auf Ausführen.

Mit diesem Verfahren kannst du alle Blätter in deiner Arbeitsmappe gleichzeitig schützen oder den Blattschutz aufheben, ohne jedes Blatt einzeln bearbeiten zu müssen.


Häufige Fehler und Lösungen

  • Fehler: "Der Blattschutz konnte nicht angewendet werden."

    • Lösung: Stelle sicher, dass du den richtigen Namen der Prozedur verwendest und diese sich in einem allgemeinen Modul befindet.
  • Fehler: "Passwort falsch."

    • Lösung: Überprüfe das Passwort, das du in den Code eingegeben hast. Es muss genau übereinstimmen.

Alternative Methoden

Wenn du Excel mehrere Blätter schützen möchtest, ohne Makros zu verwenden, kannst du folgende Schritte befolgen:

  1. Blätter auswählen: Halte die Strg-Taste gedrückt und klicke auf die Blätter, die du schützen möchtest.
  2. Rechtsklick: Klicke mit der rechten Maustaste auf eines der ausgewählten Blätter.
  3. Blattschutz aktivieren: Wähle Blattschutz und dann die gewünschten Optionen.

Diese Methode ist weniger flexibel, aber einfach, wenn du nur einige Blätter schützen möchtest.


Praktische Beispiele

  • Alle Blätter schützen: Wenn du eine Arbeitsmappe mit mehreren Tabellenblättern hast, kannst du den oben genannten VBA-Code verwenden, um schnell den Blattschutz für alle Blätter anzuwenden.

  • Blattschutz aufheben: Verwende das Aufheben-Makro, um alle Blätter gleichzeitig zu entsperren, wenn du Änderungen vornehmen möchtest.


Tipps für Profis

  • Verwende Variablen: Anstatt das Passwort fest im Code zu hinterlegen, kannst du es in einer Variablen speichern, um den Code flexibler zu gestalten.

  • Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen in deinem VBA-Code, um unerwartete Fehler während der Ausführung zu vermeiden.

  • Dokumentation: Kommentiere den Code gut, damit du und andere Anwender den Zweck jedes Teils schnell verstehen können.


FAQ: Häufige Fragen

1. Wie kann ich den Blattschutz für mehrere Blätter gleichzeitig in Excel ohne Makros anwenden?
Du kannst Blätter manuell auswählen und den Blattschutz über das Kontextmenü aktivieren, aber das ist weniger effizient.

2. Kann ich das Passwort für den Blattschutz ändern?
Ja, du musst den bestehenden Blattschutz aufheben und dann erneut mit dem neuen Passwort schützen.

3. Gibt es eine Möglichkeit, alle Blätter in Excel mit einem Makro zu schützen, ohne ein Passwort zu verwenden?
Ja, du kannst das Passwort im Code weglassen, aber dies ist nicht empfehlenswert, da es den Schutz schwächt.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige