Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
ActiveWorkook.Save
ActiveWorbook.Close
Application.Quit
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
MsgBox "Veuillez utiliser le bouton de fermeture situé sur la feuille", vbCritical, "Attention : ERREUR"
End Sub
Public monbouton As Boolean
Private Sub CommandButton1_Click()
monbouton = True
ThisWorkbook.Close
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If monbouton = False Then MsgBox "utiliser bouton": Cancel = True
End Sub