Fehler 2474 abfangen beim direkten öffnen von Formular

hallo christian,

so hatte ich mir das ja auch gedacht... aber der prompt kommt direkt beim Documents.Open. ich kann das mit einem beliebigen passwort, zwar umgehen - und fehler 5408 abfangen - aber wg. des falschen passwortes muss ich ja erneut versuchen, diesmal ohne passwort,
und dann habe ich halt wieder den prompt :-(

irgendetwas scheine ich da falsch zu machen. kannst du den code für mich blinde eule bitte mal kurz skizzieren?

danke!

inge

Am 31.01.2011 11:40, schrieb Frank Arendt-Theilen:

benutze eher die On Error Resume Next Anweisung.

Ja, nutzt aber in der Hauptschleife leider nichts, warum... keine Ahnung.

Wenn man das Öffnen jedoch in eine Function packt und ein leeres Passwort mitgibt, dann geht's.

Andreas.

Option Explicit

Sub Test()

Const Path = "Z:\"

Dim FName As String

Dim WB As Workbook

FName = Dir(Path & "*.xls")

Do

Set WB = OpenWB(Path & FName)

If Not WB Is Nothing Then

WB.Close

End If

FName = Dir

Loop Until FName = ""

End Sub

Function OpenWB(FName As String) As Workbook

On Error Resume Next

Set OpenWB = Workbooks.Open(FName, False, False, Password:="")

End Function

Hallo,

benutze eher die On Error Resume Next Anweisung.



Mit freundlichem Gruß aus der Rattenfängerstadt Hameln



(www.at-exceltraining.de)


Ist deine Frage mit diesem Beitrag beantwortet, markiere sie für alle Mitleser als Antwort
. (Du kannst auch mehrere Beiträge als Antwort markieren)

Am 31.01.2011 11:40, schrieb Frank Arendt-Theilen:

benutze eher die On Error Resume Next Anweisung.

Ja, nutzt aber in der Hauptschleife leider nichts, warum... keine Ahnung.

Wenn man das Öffnen jedoch in eine Function packt und ein leeres Passwort mitgibt, dann geht's.

Andreas.

Hab vielen dank! Genau so lässt sich das Problem lösen und ich hoffe damit auch noch weitere!! Unglaublich wie einfach die Lösung war Vielen Vielen Dank!!

Um das Ganze zu umschiffen, schalte ich die Möglichkeit zum Beenden in der Backstage einfach ab.

Die Schließen/Beenden Buttons links müsste man ausblenden können, auch wenn ich sie momentan einfach mit meinem Beispielcode abfange und mit keybd_event "escape" drücke.

Der X Button oben rechts wird ausgegraut, sobald man auf "Datei" klickt, um auf die Backstage zu kommen und dann wieder aktiviert, sobald es ein EVENT_OBJECT_SHOW gibt für "Registerkarte ""Datei"":Ribbon".

Das funktioniert soweit ganz gut.

Und jetzt habe ich auch gesehen, dass das sehr elegant mit onShow und onHide von der Backstage geht. Damit ist das jetzt für mich eine zuverlässige Lösung.

Edit:

Je länger der Abend wird, desto eher kommen die Ideen.

Beide Buttons abfangen über meine MouseEventFunc und dadrin einfach ein Formular öffnen, das seinen Timer auf 100ms setzt, der dann DoCmd.Quit ausführt.

Damit funktioniert auch das Beenden wieder ganz normal.