Öffnen von Trustcenter-blockierten Excel-Dateien

Hallo zusammen,
bin heute gescheitert beim programmatischen Öffnen (und Auslesen) von Excel-Dateien im Dateiformat xls Office 95-97 aus Excel 2013. Die schlauen Systemadministratoren haben den programmatischen Zugriff auf diese Dateien im sogenannten "Trustcenter" blockiert.
Neuere Excel-Dateien lassen sich problemlos per workbook.open öffnen und auslesen (gleiches gilt für Worddateien), bei dem genannten Dateiformat poppt dagegen eine Fehlermeldung auf (sinngemäß in etwa: "Sie versuchen Dateitypen im Format Excel 95-97 zu öffnen, blablabla ..ändern Sie im Trustcenter...).
Natürlich kann ich als Anwender die Einstellungen im "Trustcenter" nicht ändern (konzernweite Sicherheitseinstellung).....
Schwachsinnigerweise scheint es nicht einmal möglich, die Fehlermeldung abzufangen - das Makro bleibt solchermaßen hängen, wenn es auf eine Excel-Datei im alten Format stößt...
Einmal mehr ein tolles Feature von Microsoft... Total idiotisch mE, zumal sich die Dateien manuell ohne weiteres öffnen lassen (zwar auch nur im Lesemodus, aber das würde mir ja reichen...) Und natürlich ist es für böswillige Cracks sowieso keine echte Herausforderung. Pseudosicherheit, die nur den normalen Anwender plagt, völlig überflüssige Kosten und Aufwände generiert..
Hat jemand eine Umgehungslöung für mich? "opentext" statt "open" habe ich schon versucht... die execute-Variante zum Auslesen geschlossener Dateien ist leider auch kein befriedigener Ansatz - weil der Name des Tabellenblatts nicht sicher bekannt ist...
Kann man die Excel Dateien vielleicht als Textdatei einlesen? Ich vermute eher nein - das Ergebnis eines Versuchs mit notepad ist doch ziemlich zerhackt... ;-)
Läßt sich Microsoft so austricksen, dass man den Dateinamen als .txt ausgibt und dann mit Excel zu öffnen versucht? Oder mit Word öffnen?
Hat jemand einen Tipp für mich? Das wäre sehr nett...
Viele Grüße an alle Leidensgenossen (MS sucks definitely) :-(
B.

Hallo Franz,
herzlichen Dank! Dein Ansatz ist tatsächlich letzten Ende die Lösung gewesen. Zwar lassen sich die Dateien mit der obenstehend genannten Shell-Methode trotz der generellen Sperre durch MS programmatisch ohne weiteres öffnen (im Gegensatz zum Öffnen per open-Methode). Aber die Dateien lassen sich dann nicht auslesen - nützt also nichts.
Allerdings bedarf Dein Vorschlags-Code einer kleinen Modifikation: Abfangen läßt sich der Fehler mit einer Fehlerbehandlung leider nicht zuverlässig - denn MS reagiert ja nicht mit einem Fehler, sondern einem Pop-Up-Fenster. Das läßt sich auch nicht mit displayalerts=false abschalten.
Die Lösung sah jetzt so aus:

Function ExcelAuslesen(ByVal DName As String)
On Error Resume Next
dblTime = Timer
Do
Set oXl = CreateObject(DName)
Sleep 200
DoEvents
Loop While oXl Is Nothing And Timer - dblTime > 10 'Timeout
On Error GoTo 0
If oXl Is Nothing Then
Application.SendKeys "{ENTER}"
Set oXl = Workbooks.Open(Filename:=DName, ReadOnly:=True, corruptLoad:= _
xlExtractData)
Hinweis = Trim(Hinweis & " " & "Excel-Datei mit altem Format!")
End If
'(...)
End Function

Nochmals ganz herzlichen Dank!

Öffnen von Trustcenter-blockierten Excel-Dateien

Forumthread: Öffnen von Trustcenter-blockierten Excel-Dateien

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial