Schreibschutz aufheben?

[Simon23]

Hallo,

ich würde gerne meine Calc Dokumente per Makro ohne Schreibschutz öffnen.
Wenn ich sie so (mit schreibschutz) öffne, kommt keine Fehlermeldung und das Dokumet wird geöffnet.

Code: Alles auswählen

Sub Main
Dim sUrl1 as string
Dim myProps(0) as New com.sun.star.beans.PropertyValue

sUrl1 = convertToURL("C:\TestA.ods")

myProps(0).Name="ReadOnly"
myProps(0).Value = true
oDocument = StarDesktop.loadComponentFromURL(sUrl1, "_blank", 0, myProps() )
End Sub

Setze ich jedoch den ReadOnly Wert auf false kommt immer eine Fehlermeldung:

Code: Alles auswählen

Sub Main
Dim sUrl1 as string
Dim myProps(0) as New com.sun.star.beans.PropertyValue

sUrl1 = convertToURL("C:\TestA.ods")

myProps(0).Name="ReadOnly"
myProps(0).Value = false
oDocument = StarDesktop.loadComponentFromURL(sUrl1, "_blank", 0, myProps() )
End Sub

"URL seems to be an unsupported one"

Was mache ich falsch?

[Simon23]

Ich glaube ich habe meinen Fehler gefunden, es lag einfach daran, dass ich das Dokument schon geöffnet hatte.

Simon

[turtle47]

Hallo Simon,

Ich glaube ich habe meinen Fehler gefunden, es lag einfach daran, dass ich das Dokument schon geöffnet hatte.

Ganau so ist es.

Das kannst Du aber auch abfangen mit:

Code: Alles auswählen

Sub DokumentOeffnen
	Dim sUrl1 as string
	Dim myProps(0) as New com.sun.star.beans.PropertyValue
	sUrl1 = convertToURL("C:\Test.ods")
	myProps(0).Name="ReadOnly"
	myProps(0).Value = false
	On Error GoTo Failed
	oDocument = StarDesktop.loadComponentFromURL(sUrl1, "_blank", 0, myProps() )
	Failed:
    MsgBox "Die Datei ist bereits geöffnet"
End Sub

Viel Erfolg.

Jürgen