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
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
Anzeige