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 🙂

 

[pat52]

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+

Bonjour
Merci pour cette solution
J'ai ajouté un MsgBox ("Pour sortir appuyez sur Quitter") dans la private sub() après flag=false ce message s'affiche qd on appui sur la croix et empêche de quitter la feuille
mais également qd on appui sur le bouton quitter et on peux quitter la feuille qd on appui sur le ok du msgbox
je ne comprend pas pourquoi
Merci pour votre aide

 

[job75]

Bonjour pat52,

je ne comprend pas pourquoi

La macro Quitter ferme le fichier ce qui déclenche la Workbook_BeforeClose et puisque flag = True la fermeture se fait bien.

La MsgBox ne fait qu'afficher le message.

A+

 

[pat52]

Bonjour pat52,

La macro Quitter ferme le fichier ce qui déclenche la Workbook_BeforeClose et puisque flag = True la fermeture se fait bien.

La MsgBox ne fait qu'afficher le message.

A+

merci pour la réponse rapide
mais le message s"affiche quand on clique sur la croix et c'est normal, mais s'affiche également qd je clique sur mon bouton "QUITTER" at ne quitte que si j'appuie sur le OK du msbox
je ne comprends pas pourquoi alors que je ne suis pas passé par la croix pour quitter mais bien par le bouton
a+

 

[job75]

Bis repetita :

La macro Quitter ferme le fichier ce qui déclenche la Workbook_BeforeClose

Et dans la Workbook_BeforeClose il y a la MsgBox... C'est clair non ?

 

[pat52]

Bis repetita :

Et dans la Workbook_BeforeClose il y a la MsgBox... C'est clair non ?

c'est évidemment clair!!!
alors comment faire pour que le message ne s'affiche que lorsqu'on essaye de quitter par la croix et pas par le bouton quitter
Est ce possible ou non......
Est ce clair?

 

[job75]

Il suffit de le dire pour le faire :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not flag Then MsgBox "Pour sortir appuyez sur Quitter": Cancel = True 'empêche la fermeture
flag = False
End Sub

 

[pat52]

Il suffit de le dire pour le faire :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not flag Then MsgBox "Pour sortir appuyez sur Quitter": Cancel = True 'empêche la fermeture
flag = False
End Sub

merci infiniment ça marche
patrice