Schreibschutz aufheben?

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Schreibschutz aufheben?

Re: Schreibschutz aufheben?

von turtle47 » Sa, 18.08.2007 11:23

Hallo Simon,
simon hat geschrieben:Ich glaube ich habe meinen Fehler gefunden, es lag einfach daran, dass ich das Dokument schon geöffnet hatte. :oops:
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

Re: Schreibschutz aufheben?

von Simon23 » Sa, 18.08.2007 10:53

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

Simon

Schreibschutz aufheben?

von Simon23 » Sa, 18.08.2007 10:39

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?

Nach oben