Discussion :

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True
End Sub

Ne fonctionne pas

Merci

[Pierre Fauconnier]

Salut.

A priori, ton code fonctionne...

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

Ok?

[ouskel'n'or]

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

A+

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?