OpenOffice.info

Funktioniert jetzt. Vielen Dank :D

mfg gurke

oSheet = ThisComponent.Sheets( 0 )
oSheet.Unprotect( "" )
oSheet.getCellRangeByName( "K22" ).value =_
oSheet.getCellRangeByName( "K22" ).value + 1
oSheet.Protect( "" )

mmm, vielleicht ... ist beim Drucken der [i]frame [/i]nicht greifbar.

Versuche mal:[code]
oSheet = ThisComponent.Sheets( 0 )
oSheet.Unprotect( "" )
oSheet.getCellRangeByName( "K22" ).value =_
oSheet.getCellRangeByName( "K22" ).value + 1
oSheet.Protect( "" )[/code]

sub ReNr
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
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())
thisComponent.sheets(0).getcellrangebyname("K22").value =_
thisComponent.sheets(0).getcellrangebyname("K22").value + 1
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Protect"
args2(0).Value = true

dispatcher.executeDispatch(document, ".uno:Protect", "", 0, args2())


end sub

Klar kann ich den code zeigen. ein passwort hab ich sowieso nicht... (is nur damit niemand aus versehen Code löscht...)
[code]sub ReNr
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
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())
thisComponent.sheets(0).getcellrangebyname("K22").value =_
thisComponent.sheets(0).getcellrangebyname("K22").value + 1
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Protect"
args2(0).Value = true

dispatcher.executeDispatch(document, ".uno:Protect", "", 0, args2())


end sub[/code]
Wie gesagt bei anderen Ereignissen wie bei Speichern funktioniert alles wunderbar, halt nur nicht bei drucken. Vielen Dank im vorraus für jede Hilfe. K22 ist übrigens meine Rechnungsnummernzeile...

mfg gurke

Idee?
Ein [i]timing[/i]-Problem beim Drucken? Kannst Du Deinen Code mal zeigen (Passwort maskieren!)

Normalerweise nichts, hab mein Makro auch so geschrieben. Also erst Protect=false dann die formel und dann protect=true. Aber ich habe ein großes Problem damit. Kann dann das Makro nicht mehr bei "Drucken" ausführen, da drucken das protecten und unprotecten der Tabelle unterdrückt. :( Scheint ein bug zu sein. Jmd ne Idee wie das zu lösen ist?

mfg gurke

ich verstehe den Hintergrund der Frage nicht, das 'übliche' Vorgehen wäre den Zellschutz per Makro zu entfernen, dann die gewünschte Änderung an der Zelle per Makro zu machen und abschliessend den Zellschutz per Makro wieder zu setzen.
Was spricht dagegen so vorzugehen?


Gruß
Stephan

Hi, ich habe folgende Frage:
Ist es möglich eine Zelle zu schützen auf die ein makro angewendet wird?
mit "Zelle Sperren" und "Tabelle schützen" geht das nicht, da dann kein Makro mehr auf die Zelle angewendet werden kann. Danke im Vorraus für jede Hilfe :D

mfg gurke