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

Auch interessant:

• Pebkac….
  … oder: Der Computer rechnet mit allem – nur nicht mit seinem Benutzer. Dieter Hildebrandt via Ste
• GMail: Besprechungseinladungen automatisch in Google Kalender übernehmen
  Dass ich Nutzer von GMail bin, habe ich mehrfach erwähnt. Ich nutze aber auch den Google Kalender fü
• Ich kam, sah und linkte: 14.04. – 15.04.
  Fabrizio Russo Home Page :: Tools für WM5 um Adressen in eine XML-Datei zu exportieren – und zu imp
• gegen Rechts: kostenloses Doppelalbum britischer Bands
  Mal wieder ein Musikhinweis vom Alternative Music Blog: Als Reaktion auf Aktionen der rechten britis
• Mac: die Remote für fast jedes Programm nutzen
  … schliesslich heisst sie "Universal Remote". Eigentlich wollte ich morgen eine kleine P