Nochmal - Kennwortschutz

[Nicole]

hallo
Ich hatte vor kurzem eine Anfrage zwecks Schreibschutz Erkennung. Alles kein Problem funktioniert problemlos über FileAttributes.

Aber hier mein nächstes Problem:
Ich sollte in meinem Programm (geschrieben in VB 6.0) erkennen können wenn bei einer Word bzw. Excel Datei der Kennwortschutz gesetzt ist dies lässt sich nämlich nicht mit FileAttributes abfragen.
Hat mir da jemand eine Idee wie ich das lösen kann?

Besten Dank
Gruss nicole

 

[Dario Linsky]

Am komfortabelsten würde das mit einem Word- bzw. Excel-Objekt gehen. Dazu müsstest Du Word/Excel per OLE fernsteuern, die betreffende Datei öffnen und nachsehen, ob das Dokument entsprechend geschützt ist.
Eine andere komfortable Möglichkeit gibt es nicht, weil wie gesagt dieser Kennwortschutz nicht über das Dateisystem abgefragt werden kann.

 

[Nicole]

Jetzt bin ich etwas überfordert.
Wie kann ich Word und Excel über OLE vernsteuern?

 

[Dario Linsky]

Du kannst einen Verweis auf die Objektbibliotheken von Word und Excel setzen und dann auf die entsprechenden Objekte zugreifen - genau wie in dem VBA aus Word/Excel.

Mit Word sieht das ungefähr so aus:

'Variablen und Objekte deklarieren
Dim wApp As Word.Application
Dim wDoc As Word.Document

'Objekte erzeugen
Set wApp = New Word.Application
Set wDoc = wApp.Documents.Open("C:\Dateiname.doc")

'Word-Anwendung unsichtbar im Hintergrund laufen lassen
wApp.Visible = False

'........

'Word-Anwendung im Hintergrund schließen
wDoc.Close
wApp.Quit

'Objekte wieder freigeben
Set wDoc = Nothing
Set wApp = Nothing

Die Objektstruktur von Excel ist da allerdings etwas komplizierter aufgebaut.