interdire la fermeture d'1 userform par le biais de la petite croix en haut....

[thuan]

Bonsoir tout le Monde, le forum
Je voudrais vous demander comment fait ton pour interdire, ou déactiver la fermeture d'une userform lorsque l'on la ferme avec la petite croix qui se trouve en haut à gauche, je voudrais ne permettre à l'utilisateur de fermer sa userform qu'à l'aide d'un commandbutton.
un grand merci

 

[Lord Nelson]

Salut Thuan,

Tu peux contrôler la fermeture dans l'évènement QueryClose où la valeur de la variable CloseMode est égale à :

0 si l'utilisateur choisit la commande Fermeture dans le menu système de la feuille (ou le raccourci clavier Alt F4).

1 si l'instruction Unload est invoquée à partir du code.

Donc :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
'Positionner le flag Cancel pour annuler l'ordre de fermeture
Cancel = True
ElseIf CloseMode = 1 Then
'Laisser la fenêtre se fermer, ne pas toucher à Cancel
End If
End Sub

A+
Horatio

 

[thuan]

merci pour ton aide c'est sympa