OpenOffice.info

Hallo komma4,

das ganze muss schon programmtechnisch abgefangen werden. Das ist auch nur der erste Schritt. Für ein bestimmtes Programm muss der Schreibschutz nämlich per Makro wieder aufgehoben werden.

Gruss

Thomas

Wie wäre es die Dokumente auf einem Laufwerk/Verzeichnis abzulegen, wo die Benutzer nur lesenden Zugriff haben?

Sub Reading
      rem
'----------------------------------------------------------------------
      rem Variablen defininieren
      dim document   as object
      dim dispatcher as object

'----------------------------------------------------------------------
      rem Zugriff auf das Dokument
            document   = ThisComponent.CurrentController.Frame
            controller = ThisComponent.getCurrentController()

'----------------------------------------------------------------------
            dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
            dispatcher.executeDispatch(document, ".uno:EditDoc", "", 0, Array())
End Sub

Dim myProps(0) as New com.sun.star.beans.PropertyValue
sUrl= "file:///C:/test.sxw"
myProps(0).Name="ReadOnly"
myProps(0).Value = true
oDocument = StarDesktop.loadComponentFromURL(surl, "_blank", 0, myProps() )

Hallo zusammen,

in unserem Unternehmen dürfen OpenOffice-Dokumente z.Zt. nur schreibgeschützt geöffnet werden.
Dies wird folgendermaßen erreicht:

Dem Ereignis 'Dokument öffnen' (unter Extras - Anpassen - Ereignisse) wird ein Makro zu gewiesen und in der Applikation (openoffice.org) gespeichert. Dieses Makro wird also jedesmal ausgeführt, wenn ein OpenOffice-Dokument geöffnet wird. Das Dokument wird dann schreibgeschützt geöffnet. Das Makro steht in 'Meine Makros&Dialoge.Standard' und sieht folgendermaßen aus:

[code]Sub Reading
rem
'----------------------------------------------------------------------
rem Variablen defininieren
dim document as object
dim dispatcher as object

'----------------------------------------------------------------------
rem Zugriff auf das Dokument
document = ThisComponent.CurrentController.Frame
controller = ThisComponent.getCurrentController()

'----------------------------------------------------------------------
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:EditDoc", "", 0, Array())
End Sub[/code]

Das funktioniert soweit.

Frage:
Kann man das auch ohne Dispatchercode umsetzten?
Ich dachte da an folgendes. Mit:

[code]Dim myProps(0) as New com.sun.star.beans.PropertyValue
sUrl= "file:///C:/test.sxw"
myProps(0).Name="ReadOnly"
myProps(0).Value = true
oDocument = StarDesktop.loadComponentFromURL(surl, "_blank", 0, myProps() )[/code]

öffne ich aus OpenOffice heraus eine Datei im schreibgeschützten Modus.
Wie müsste ich den Code ändern, damit bei jedem Öffnen einer Datei der Schreibschutz gesetzt wird?

Gruss

Thomas