J'ai interdis l'utilisation de la croix du UserForm pour sortir avec le code
suivant :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
ça marche bien et j 'ai un bouton "Quitter" pour les utilissateur, mais je
voudrais pouvoir arreter le script pour moi avec une séquence de touche
(CTRL + F) par exemple.
Dans mmon userform j'ai des zonnes de sasie et des listes.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe Noss
Pourquoi ne pas tester l'utilisateur, (si j'ai compris la question) Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu and not Application.UserName="XX" Then Cancel = True End Sub
Philippe N.
http://nossphil.perso.cegetel.net/exoutils.html
Pourquoi ne pas tester l'utilisateur, (si j'ai compris la question)
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
If CloseMode = vbFormControlMenu and not Application.UserName="XX"
Then Cancel = True
End Sub
Pourquoi ne pas tester l'utilisateur, (si j'ai compris la question) Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu and not Application.UserName="XX" Then Cancel = True End Sub
Philippe N.
http://nossphil.perso.cegetel.net/exoutils.html
Michel Pierron
Bonjour Jacques; Une solution parmi d'autres, sortie avec click droit en maintenant la touche Control appuyée: Private Sub UserForm_MouseDown(ByVal Button%, ByVal Shift%, ByVal X!, ByVal Y!) If Shift = 2 And Button = 2 Then Unload Me End Sub
MP
"Jacques" a écrit dans le message de news: 4338dc72$0$17210$
Bonjour,
J'ai interdis l'utilisation de la croix du UserForm pour sortir avec le code
suivant :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True End Sub
ça marche bien et j 'ai un bouton "Quitter" pour les utilissateur, mais je voudrais pouvoir arreter le script pour moi avec une séquence de touche (CTRL + F) par exemple. Dans mmon userform j'ai des zonnes de sasie et des listes.
Comment puis-je faire ?
Jacques
Bonjour Jacques;
Une solution parmi d'autres, sortie avec click droit en maintenant la touche
Control appuyée:
Private Sub UserForm_MouseDown(ByVal Button%, ByVal Shift%, ByVal X!, ByVal
Y!)
If Shift = 2 And Button = 2 Then Unload Me
End Sub
MP
"Jacques" <jj@free.fr> a écrit dans le message de news:
4338dc72$0$17210$8fcfb975@news.wanadoo.fr...
Bonjour,
J'ai interdis l'utilisation de la croix du UserForm pour sortir avec le
code
suivant :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
ça marche bien et j 'ai un bouton "Quitter" pour les utilissateur, mais je
voudrais pouvoir arreter le script pour moi avec une séquence de touche
(CTRL + F) par exemple.
Dans mmon userform j'ai des zonnes de sasie et des listes.
Bonjour Jacques; Une solution parmi d'autres, sortie avec click droit en maintenant la touche Control appuyée: Private Sub UserForm_MouseDown(ByVal Button%, ByVal Shift%, ByVal X!, ByVal Y!) If Shift = 2 And Button = 2 Then Unload Me End Sub
MP
"Jacques" a écrit dans le message de news: 4338dc72$0$17210$
Bonjour,
J'ai interdis l'utilisation de la croix du UserForm pour sortir avec le code
suivant :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True End Sub
ça marche bien et j 'ai un bouton "Quitter" pour les utilissateur, mais je voudrais pouvoir arreter le script pour moi avec une séquence de touche (CTRL + F) par exemple. Dans mmon userform j'ai des zonnes de sasie et des listes.
