_ExcelBookOpen (Return Values, falls das Passwort nicht stimmt)

Hallo!

Sollte diese Frage bereits beantwortet worden sein, bitte ich um Entschuldigung (ich habe aber bereits die Suchfunktion benutzt)...

Ich versuche gerade ein altes Projekt erneut in Angriff zu nehmen. Gegeben sind mehrere hundert Excel-Dokumente mit unterschiedlichen Passwörtern. Ziel ist es, diese Dokumente ohne Passwort neu abzuspeichern (-> Save As... -> ohne Passwort -> Dateiname_decrypted.xlsx).
Wenn ich eine Datei mit gültigem Passwort öffne, ist das kein Problem. Wenn ich jedoch ein falsches Passwort "mitgebe", passiert jedoch leider gar nichts.
Ich bekomme lediglich folgende Fehlermeldung: "D:\Excel_neu.au3 (189) : ==> The requested action with this object has failed.:" (Excel_neu.au3 -> weil ich Änderungen bezüglich xlsx und leerem Passwort beim Speichern vornehmen musste).

Kann mir evtl. jemand weiterhelfen? Ich würde gern diesen Fehler abfagen können um entweder ein anderes Passwort zu testen, oder diese Datei einfach zu überspringen.

P.S.: Mit dem com error Handler habe ich bereits ein wenig "rumprobiert", werde aber nicht wirklich schlau draus. Es werden nämlich direkt zwei Fehler angezeigt. hex(80020009) und hex(000000A9).
Und selbst dann weiß ich leider nicht, wie ich diese Werte nutzen könnte...

Vielen Dank schom mal im Voraus!

Gruß

#include <Excel_UDF.au3>
Global $g_eventerror = 0  ; to be checked to know if com error occurs. Must be reset after handling.
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc") ; Install a custom error handler




Local $sFilePath1 = "D:\test.xlsx"
Local $oExcel = _ExcelBookOpen($sFilePath1, 1, False, "asd1", "asdf")




_ExcelBookSaveAs($oExcel, "D:\test_decrypted", "xlsx", 0, 1)
If Not @error Then MsgBox(0, "Success", "File was Saved!", 3)
_ExcelBookClose($oExcel, 1, 0)


Func MyErrFunc()
   $HexNumber=hex($oMyError.number,8)
   Msgbox(0,"","We intercepted a COM Error !" & @CRLF & _
            	"Number is: " & $HexNumber & @CRLF & _
            	"Windescription is: " & $oMyError.windescription & @CRLF & _
				"Source is: " &$oMyError.source & @CRLF & _
				"ScriptLine is: " & $oMyError.scritpline)


   $g_eventerror = 1
EndFunc


Exit

Kann es sein, dass im Excel UDF etwas nicht stimmt?
Wenn ich oben genanntes Script mit dem Passwort "asdf" ausführe, läuft alles super.
Wenn ich jedoch (wie im Beispiel) ein falsches Passwort eingebe "asd1", bekomme ich gleich zwei Fehlermeldungen vom COM-Error-Handler (siehe weiter oben).
Bei der "000000A9" Fehlermeldung erhalte ich noch zusätzlich den Text von "WinDescription is:" -> Variable must be of type 'Object'

In der Scite-Ausgabe steht folgendes:

>Running:(3.3.8.1):C:\Program Files (x86)\AutoIt3\autoit3.exe "D:\Excel_Known_Password_Disabler.au3"
D:\Excel_UDF.au3 (196) : ==> Error in expression.:
If .ActiveWorkbook.Sheets($i).Visible = $xlSheetVisible Then
If ^ ERROR
->11:17:16 AutoIT3.exe ended.rc:1
>Exit code: 1 Time: 122.884

Mit der 3.3.9.2 beta wird jetzt zwar nicht mehr das Excel-Fenster geschlossen, dafür bekomme ich aber auch keine Fehlermeldung mehr in der Scite-Ausgabe.

Leider finde ich auch keine Möglichkeit den Fehler "aufzufangen". Wenn ich direkt nach der Zeile mit "_ExcelBookOpen" eine MsgBox einfüge (z.B. mit @error, oder mit einem Return-Wert der Funktion), wird dieser Befehl gar nicht erst ausgeführt.

Danke schon mal für die Antworten. Bin leider noch nicht dazu gekommen, es mir genauer anzuschauen.
Wollte nur kurz anmerken, dass "If .ActiveWorkbook.Sheets($i).Visible" im Excel.au3 drin steht.

Bis später...