Blattschutz automatisch

Bild

Betrifft: Blattschutz automatisch von: Dieter
Geschrieben am: 16.03.2005 19:03:29

Habe ein Tabellenblatt, in dem einige Spalten ausgeblendet sind. Diesen Bereich
habe ich mit einem Blattschutz versehen, damit dieser nicht eingeblendet werden
kann.
Wie kann ich,um diesen Blattschutz auf jeden Fall zu gewährleisten,
wenn die Bearbeitung dieses Tabellenblattes erledigt ist und evtl. der Blattschutz aufgehoben war, egal ob dann gespeichert wird oder nicht (also beim schließen), diesen Blattschutz automatisch einfügen?

Bild


Betrifft: AW: Blattschutz automatisch von: Bert
Geschrieben am: 16.03.2005 19:16:25

Wenn ohne Speicherung geschlossen wird, ändert sich ja nichts gegenüber dem Zustand beim Öffnen. Du musst also nur in:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

den Blattschutz setzen.

Bert


Bild


Betrifft: AW: Blattschutz automatisch von: Franz D.
Geschrieben am: 16.03.2005 22:15:58

Hallo Bert,
Probiere es einmal so...

Private Sub Worksheet_Activate()
ActiveSheet.Protect
End Sub


Private Sub Worksheet_Deactivate()
ActiveSheet.Protect
End Sub

Vorteil: Ein Wechsel von "Tabelle1" auf "Tabelle2" z.B. schützt automatisch die Tabelle(n).
Gute Nacht.
Franz D.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Blattschutz automatisch"