XL 2010 Désactiver la croix de fermeture feuille excel

[chakershaker]

salut tout le monde, je cherche une solution pour désactiver la croix de fermeture des feuilles de mon classeur mais d'affecter encore les procédures de fermeture (voulez vous enregistrer les modifications apportées excel) à un bouton quitter. Merci de m'aider s'il ya de solution.

 

[job75]

Bonsoir chakerShaker,

Voyez le fichier joint et ce code dans ThisWorkbook :

Dim flag As Boolean 'mémorise la variable

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not flag Then Cancel = True 'empêche la fermeture
flag = False
End Sub

Sub Quitter() 'lancée par CommandButton3
flag = True
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

A+

 

[chakershaker]

Merci beaucoup Mr job75. Enfin le problème est parfaitement résolu