[VBA-E] Désactiver la croix pour fermer un userform

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 ;)

Code:

---

1 2 3

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

---

Code:

---

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 (!) :mouarf:

Merci à vous deux, c'est parfait ;)