OpenOffice.info

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Protect"
args1(0).Value = false
dispatcher.executeDispatch(document, ".uno:Protect", "", 0, args1())

[quote]Das Blattschutzsymbol in den Registerkarten ist allerdings weiterhin sichtbar.[/quote]

Dann musst Du zum Entfernen des Blattschutzes dispatcher-Code benutzen:

[code]document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Protect"
args1(0).Value = false
dispatcher.executeDispatch(document, ".uno:Protect", "", 0, args1())

[/code]oder nach Aufheben des Schutzes das entsprechende Tabellenblatt im Makro zusätzlich kurz aus- und wiedereinblenden.

[quote]Gibt es ein Makrokommando um die Register der Blätter zu aktualisieren?[/quote]

mir ist Keines bekannt


Gruß
Stephan

Hallo,
Ich habe mit einem Makro-Looping den Blattschutz von allen Tabellenblättern aufgehoben.
Das Blattschutzsymbol in den Registerkarten ist allerdings weiterhin sichtbar.
Erst nach Speichern und Dokument öffnen ist das Symbol Blattschutz in Registerkarten weg.

Gibt es ein Makrokommando um die Register der Blätter zu aktualisieren?