Bonjour,

je suis a la recherche d'un code pour interdire de fermer excel par la croix mais par un bouton qui enregistre et ferme excel dont le code est ceci:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
Select Case MsgBox(" Voulez-vous sauvegarder ? ", vbYesNoCancel)
 
Case vbYes
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.Quit
ActiveWindow.Close
 
Case vbNo
Application.DisplayAlerts = False
Application.Quit
ActiveWindow.Close
 
Case Cancel
End Select
 
End Sub
Mais il me manque le code pour interdire la fermeture par la croix en haut a droite.

D'avance merci

Cordialement

Max