OpenOffice.info

Verfasst: **Di, 20.03.2012 08:05**

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?

Verfasst: **Di, 20.03.2012 08:46**

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!

OpenOffice.info

Beim schließen prüfen ob Tabellenblatt wieder gesperrt

Re: Beim schließen prüfen ob Tabellenblatt wieder gesperrt

Re: Beim schließen prüfen ob Tabellenblatt wieder gesperrt