Datei beenden, aber ... (VBA)
16.05.2015 16:48:47
Uwe
bei einem neuen Projekt "klemmt es" noch ein wenig bei Details. Ich möchte, das eine Datei einzig über ein eigenes Menü gesichert werden kann:
Sub Datei_beenden()
If MsgBox("Möchten Sie ihre Eingaben sichern?", vbYesNo, "Job 2018 - Administrator") = vbNo _
Then
Application.DisplayAlerts = True
ThisWorkbook.Saved = True
Application.Quit
Else
Call Daten_sichern
Application.DisplayAlerts = True
ThisWorkbook.Saved = True
Application.Quit
Exit Sub
End If
End Sub
Soweit läuft das prima. Wie aber richte ich es ein, das die Datei ohne Rückfrage nach der Datensicherung geschlossen wird, so ein Benutzer diese über das Kreuz (rechts oben) schließt. Also, die Datensicherung soll einzig über meine Routine möglich sein. Vermutlich hab ich was nicht bedacht. ... Denn der Befehl ThisWorkbook.Saved = True
Application.Quit
unter Workbook_Close bringt keinen Erfolg. Und nu?
Für sachdienliche Hinweise zur Ergreifung des Übeltäters (der sitzt meist vor der Tastatur...) bin ich sehr dankbar.
Gruß
Uwe