Passwortschutz von Dateien - wie abfragen in VBA?
10.03.2004 15:37:31
Timo Steuerwald
In einem VBA Skript durchlaufe ich automatisiert zig Dateien in einem Verzeichnis und erstelle dabei für jede Datei Auswertungen über deren Inhalte.
Mein derzeitiges Problem sind die vielen Ausnahmefälle. Z.B. gibt es ja die Möglichkeit xls Dateien mit einem Passwortschutz zu versehen. Wie kann ich nun bei diesem Verzeichnisdurchlauf diese Dateien vom öffnen ausschließen? Gibt es einen Befehl um ohne die Datei zu öffnen diese auf Passwortschutz zu überprüfen? Momentan erweisen sich solchen Dateien durch den aufpoppenden Dialog nämlich als Stolperstein für das Skript. Ich habe auch versucht mit dem Macrorecorder händisch die passwortgeschützte Datei zu öffnen und habe dann beim aufpoppenden Dialog zur Passworteingabe "Abbrechen" gewählt. Hat leider nix gebracht, da dieser Dialog offensichtlich vom Macrorecorder nicht mit aufgezeichnet wird.
Ein falsches Passwort im Application.Workbooks.Open Befehl mitzugeben bringt auch nichts, dann bekomme ich halt von VB ne entsprechende Meldung, daß das Passwort falsch ist.
Außerdem bekomme ich bei manchen Dateien beim öffnen den Dialog "Das Projekt wurde ins Englische übersetzt" (im Fensterrahmen steht "Microsoft Visual Basic") mit den zwei Auswahlmöglichkeiten "OK" und "Hilfe" (es gibt aber im übrigen keine Hilfe dazu). Wie kann ich automatisiert solch einen Dialog behandeln?
Vielen Dank schon mal für die Zeit die Ihr opfert um das ganze Zeugs hier durchzulesen und noch mehr Dank an die die auch noch ne Antwort darauf wissen :-)
MfG,
Timo Steuerwald