VBA: Wenn Datei offen dann schließen mit Speicherabfrage

[Kash]

Hallo Leute

Wie der Titel schon sagt würde ich gerne überprüfen ob eine bestimmte Datei geöffnet ist.
Wenn Ja dann soll diese Datei geschlossen werden aber mir trotzdem die Möglichkeit bieten zu entscheiden ob gespeichert werden soll oder nicht (Speicherabfrage).
Wenn Nein dann soll ganz normal der Code der dannach kommt weiterlaufen.

Code:

  Dim wkbMappe As Workbook
  On Error Resume Next
  Set wkbMappe = Workbooks("Mappe1.xlsx")
  On Error GoTo 0
  If Not wkbMappe Is Nothing Then wkbMappe.Close False

Soweit bin ich gekommen hat wer ne Idee wie ich die Speicherabfrage bekomme?
Und des weiteren wie er fortsetzt wenn er keine offene "Mappe1.xlsx" findet?

Danke!
Lg Kash

[AlterDresdner]

Hallo Kash,
lass einfach das False in
 

Code:

If Not wkbMappe Is Nothing Then wkbMappe.Close False

weg, dann fragt Excel schon. Klickst Du auf Nein, wird nicht gespeichert und dennoch geschlossen, es läuft dann also einfach weiter. Nur bei Abbrechen bleibt die mappe offen.
Gruß der AlteDresdner