passwortgeschützte Calc-Datei mit Makro öffnen

[oerki]

Hallo zusammen,

ich brauche mal eure Hilfe. Finde nichts bei meiner bisherigen Suche...

Gibt es eine Möglichkeit von einer Datei aus eine andere passwortgeschützte Datei zu öffnen, so dass das Makro das richtige Passwort eingibt?
Ich habe mich schon mit diesen Möglichkeiten beschäftigt:
http://www.dannenhoefer.de/faqstarbasic ... Descriptor

Da gibt es ja den Punkt Password.
Wenn ich das benutzte, dann passiert aber nichts. Das ist doch bestimmt dafür da, um einer umgeschützten Datei ein Passwort zugeben, oder?
Wenn ich das Makro starte, dann geht die zu öffnende geschützte Datei nach einer halben Sekunde wieder zu...
Das hatte ich bisher benutzt:

Code: Alles auswählen

Dim myProp(0) as new com.sun.star.beans.PropertyValue
myProp(0).name="PassWord"
myProp(0).value = "schutz"
url=converttourl("C:\test.sxw")
oDocument = StarDesktop.loadComponentFromURL(url, "_blank", 0, myFileProp() )

Ist das falsch, oder gibt es eine andere Methode, wo ich in der 1. Datei das Passwort als Makro speichere, so dass es in der 2. Datei bei der Abfrage des Passworts, also beim Öffnen, dieses eingibt?

VG

Steffen

[oerki]

Manchmal ist es doch seltsam...

Jetzt klappt es.

Sogar auch mit allen anderen Zusätzen

Ich habe sogar die Befürchtung, dass ich einfach nur das Passwort falsch geschrieben habe...

Habe jetzt diesen Code genutzt, falls es einen interessiert.

Code: Alles auswählen

		Dim myProp(2) as new com.sun.star.beans.PropertyValue
		myProp(0).name = "Password"
		myProp(0).value = "schutz"
'		myProp(1).name = "ReadOnly"
'		myProp(1).value = true
		myProp(2).name = "MacroExecutionMode"
		myProp(2).value = 4
		url = converttourl("C:\test.sxw")
		oDocument = StarDesktop.loadComponentFromURL(url, "_blank", 0, myProp() )

Wie setzte ich den Beitrag auf gelöst?

VG

Steffen