OpenOffice.info

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!

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 

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


[code]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 [/code]


Kommst Du damit zurecht?