Interdire fermeture par la croix

Public sortie As Boolean
Sub SavFeuille()
sortie = True
MakeDirEx ("C:\GSM\Sauvegardes\")
Application.DisplayAlerts = False
ActiveSheet.Select
ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\GSM\Sauvegardes\" & _
ActiveSheet.Name & " " & ActiveSheet.Range("G4") 'Format(Date, " yyyy"), xlNormal
ActiveWorkbook.Close 'entre parenthèse 0 pour sortir sans enregistrer ou 1 pour enregistrer sans message
Application.DisplayAlerts = True
MsgBox "Le mois de " & ActiveSheet.Name & " " & ActiveSheet.Range("   G4") & " a été sauvegardé", vbInformation, ThisWorkbook.Name
'ACCUEIL.Activate
'MENU.Show
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If sortie = False Then Cancel = True
End Sub