Au clique d'un bouton enregistrer

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If autoriser = True Then Exit Sub
Cancel = Not bye
MsgBox "Vous devez enregistrer!", vbInformation, "Fermeture"
End Sub

Option Explicit
Public bye As Boolean
Public autoriser As Boolean
Sub quitter()
bye = True
ThisWorkbook.Close
End Sub
Sub enregistrer()
Dim Fichier As Variant
 Fichier = Application.GetSaveAsFilename(Fichier, "Fichiers Excel (*.xlsm), *.xlsm")
    ActiveWorkbook.SaveAs Fichier
 Application.DisplayAlerts = False
autoriser = True
Application.Quit
End Sub
 

enregistrer