griser la croix d'un userform

La griser, je ne sais pas, mais voici une procédure qui ne
prend pas le clic en compte et oblige à se serivre des
boutons du userform.


Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)

If (CloseMode = vbFormControlMenu) Then
Cancel = 1
MsgBox "Utiliser les boutons de commande." & Chr(13)
& "(pour arrêter l'application : bouton Quitter
l'application dans la fenêtre Menu général)", vbInformation
End If

End Sub

cdlt
fabienne

-----Message d'origine-----
bonjour,

sait-on griser la croix d'un userform pour la rendre
inutilisable (enabled= false)


merci
.

Bonjour
Je ne sais pas griser cette croix mais tu peux la rendre ineffective avec
ceci :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = 1
End Sub

PS : à placer dans le code du Userform
Cordialement
Pascal

"xavier" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:445a01c4a13e$e4329120$a501280a@phx.gbl...

bonjour,

sait-on griser la croix d'un userform pour la rendre
inutilisable (enabled= false)


merci