[VB...]Equivalence événemt QueryClose pr Workbook

Bonjour,
Existe-t-il un événemement permettant de neutraliser les croix de fermeture d'un classeur et de l'appli ? (situées en haut et à droite de la fenêtre) (équivalent de LaForm_Queryclose)

Code:

---

1 2 3

Private Sub Workbook_BeforeClose(Cancel As Boolean) Cancel = True End Sub

---

Ne fonctionne pas

Merci

Salut.

A priori, ton code fonctionne...

Vérifie peut-être que
application.enableevents est bien à True

Ok?

:fou: Pour fonctionner, ça fonctionne ! T'as juste oublié de me dire qu'après on ne peut ni fermer la feuille ni l'appli :lefou:
Je me débrouille, merci

A+

Ha ça, comme tu ne peux plus fermer le classeur, tu ne peux plus fermer non plus l'application.

Pour remédier à cela, passe la propriété Application.enableevents à False dans la fenêtre d'exécution...

En fait, on pratique avec un cancel = true lorsqu'il y a une procédure qui pose une question ou un flag qui détermine si le fichier doit être fermé ou non

Application fermée selon réponse à une question

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Reponse As VbMsgBoxResult   Reponse = MsgBox("Voulez-vous fermer l'application?", vbYesNo + _ vbQuestion, "Gestion de la fermeture") If Reponse <> vbYes Then Cancel = True End Sub

---

application qui ne peut être fermée avant 16hrs

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_BeforeClose(Cancel As Boolean) If Now() - Int(Now) < (4 / 6) Then MsgBox "Vous devez encore travailler..." Cancel = True End If End Sub

---

Ok?