Hi zusammen,
ich möchte über einen Commandbutton in einer Userform das Programm inklusive Sicherheitskopie speichern und dann das Programm beenden, und zwar ohne weitere Abfragen außer die von mir erstellte Msgbox
Leider klappt das so gar nicht wie ich es mir vorgesteltl habe. Die Abfrage ob gespeichert werden soll kommt trotzdem. Muss ich das vielleicht an anderer Stelle einfügen, evtl in einem Workbook_Before_Close sub?
Hier mal mein Code
Private Sub Button_ProgrammBeenden_Click()
Application.DisplayAlerts = False
Dim Pfad As String
Pfad = ActiveWorkbook.Path
If MsgBox("Sind Sie sicher dass Sie das Programm schließen möchten?", vbOKCancel) = vbOK Then
ThisWorkbook.Save
ThisWorkbook.SaveCopyAs Filename:=Pfad & "Sicherungskopie.xlsm"
Application.Quit
Else: Exit Sub
End If
End Sub
Hat jemand eine Idee woran das liegen kann?
Vielen Dank und viele Grüße
Jonas
|