Hallo,
ich habe fürs erste eine Lösung als Holzhammermethode gefunden.
Wenn als Passwort ein Leerstring übergeben wird, funktioniert es wenn das Excel keinen PW Schutz hat und ansonsten bekomme ich eine
Exception. So kann ich herausfinden ob ein Excel einen Passwortschutz hat ohne das der User manuelle eingaben machen muss. Für besser Vorschläge bin ich offen.
Delphi-Quellcode:
try
Excel.Workbooks.Open(ListBox_XLS_Errors.Items[i], emptyParam, emptyParam, emptyParam,
'
', emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
emptyParam, emptyParam, emptyParam, emptyParam, emptyParam, _lcid);
except
on E :
Exception do
if Pos(E.
Message, '
Das eingegebene Kennwort ist ungültig.') = 0
then
begin
showmessage('
Hat PW schutz!');
Continue;
end
else
begin
ShowMessage('
Anderer Fehler: '+E.
Message);
Halt;
end;
end;