Discussion :

[$p00ky]

Bonjour, j'ai tenté de suivre ce code : http://vb.developpez.com/faq/?page=F...uton_fermeture

Cependant, sous VBA il ne marche pas car en connait pas Me.hwnd.
Mais même en le remplacant par 0, ca ne marche pas car la croix est toujours affichée et fonctionelle.

merci d'avance pr l'astuce

[Vesta]

Code :

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

1
2
3
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub

[ouskel'n'or]

Code :

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

1
2
3
4
5
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If Not GetOut Then MsgBox "Pour plus de sécurité, utiliser l'une des deux " _
 + """portes de sortie""" + " pour quitter l'application", 64, "Sortie condamnée"
    Cancel = True
End Sub

J'ai placé un boolean GetOut déclaré en public afin de m'autoriser une sortie par la croix, sortie que j'interdis aux utilisateurs

NB - Une précision : mes boutons de sortie de l'appli (avec ou sans sauvegarde) sont des portes (!)

[$p00ky]

Merci à vous deux, c'est parfait