Stephan A. aus B.

Blattschutz in Excel ist was feines: man kann mühsam erstellte Tabellen weitergeben, ohne dass jemand etwas an den Formeln verbiegt.

Dass man das über Extras - Schutz ein- und ausschalten und via Format - Schutz einstellen kann, muss ich ja keinem sagen, oder?

Bei einem Projekt wie z.B. einer Zeiterfassungstabelle (15 Sheets: Info, 12 Monate, Jahresauswertung, Feiertagsliste) ist es aber sehr lästig, bei jeden Sheet immer wieder auf Extras - Schutz - Blattschutz aufheben zu klicken und ein Passwort einzugeben.

Deswegen habe ich mir ein kleines Makro dazu gebastelt:

Attribute VB_Name = “SchutzMakros”

Sub AlleBlaetterSchutz_ein()
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=”passwort”
Next

End Sub

Sub AlleBlaetterSchutz_aus()
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Unprotect (”passwort“)
Next

End Sub

Einfach den Text in einen Texteditor kopieren (oder hier herunterladen) , aus “passwort” ein geeignetes Passwort machen und die Datei als Schutz.bas speichern (oder einen anderen Dateinamen wählen, Hauptsache die Endung ist .bas).

Danach im Excel den VB_Editor starten (oder ALT-F11) und die .bas via Datei - Datei importieren (oder STRG-M) importieren.

Jetzt kann man im Excel mit Extras - Makro - Makros (oder ALT-F8) mal eben alle Blätter sperren oder entsperren:

Würde man die Datei jetzt so speichern, dann wäre auch das Makro mit in der Datei gespeichert. Und im Makro ist das Passwort im Klartext enthalten. Also sollte man vorher wieder in den VB-Editor (ALT-F11) und bei den Modulen einen Rechtsklick auf unser Modul machen, anschliessend “Entfernen von Modul…” wählen. Danach kann der VB-Editor geschlossen und die Datei gespeichert werden.

Mir hilfts ungemein, weil das Erstellen von grösseren Excel-Projekten fdür den täglichen Gebrauch fast schon Tagesgeschäft ist