Beim schließen prüfen ob Tabellenblatt wieder gesperrt

[komma4]

Das folgende Makro versieht die Tabelle (Konstante in 1. Zeile: anpassen!) mit einem Blattschutz, wenn der nicht gesetzt ist.
Verbinde das Makro mit dem Extras>Anpassen...>Ereignisse Ereignis Dokument wird geschlossen

Code: Alles auswählen

CONST cTABELLE = "Tabelle2"

SUB de51340
' 2012-03-20

' Blattschutz einschalten
IF NOT _
   ThisComponent.Sheets().getByName( cTABELLE ).isProtected() THEN
   ThisComponent.Sheets().getByName( cTABELLE ).protect( "" ) 
END IF

END SUB 

Kommst Du damit zurecht?

[theindless]

Hallo,

genialer Code Winfried... kann ich super gebrauchen.
Das hätte ich mir viel komplizierter vorgestellt.

Nach kurzem Probieren habe ich sogar herausgefunden, wie man analog einen Dokumentenschutz automatisiert.
Ist ja noch einfacher

Nochmals Danke!