interdire fermerture userform

[bbobb]

Bonsoir le forum,
Tout est dans le titre, mais je développe quand même 🙂 :
J'ai un fichier avec une userform, et je veux que l'utilisateur ne puisse pas fermer la userform par la croix en haut à droite pour le contraindre à utiliser les boutons ok ou annuler.
Si quelqu'un a la solution...

Merci d'avance pour votre aide
Bonne soirée
Bbobb

 

[Dranreb]

Re : interdire fermerture userform

Bonsoir.
Oui, il y a l'évènement UserForm_QueryClose qui passe un paramètre Cancel à mettre à 1.
Cordialement.

 

[bbobb]

Re : interdire fermerture userform

Bonsoir Dranreb,
Merci pour ta réponse, mais je ne sais juste pas comment faire ça...
L'événement USERFORM_QueryClose, je trouve ça où ?
Est-ce une ligne à rajouter dans le code de la USF ?

Merci de continuer à m'aider
Bbobb

 

[Dranreb]

Re : interdire fermerture userform

Utiliser les listes déroulantes qui surmontent la fenêtre de code:
Liste de gauche (Objet): Userform
Liste de droite (Procédure): QueryClose
À +

 

[bbobb]

Re : interdire fermerture userform

Re bonsoir,
J'ai fait :

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

Mais avec ce code la USF ne répond plus, or je souhaite interdire la fermeture de la USF mais que les bouton OK et ANNULER restent actif.

Bbobb

 

[Dranreb]

Re : interdire fermerture userform

Pouvez vous joindre le classeur ? Il doit y avoir autre chose. Il n'y a pas de raison que cela ait une autre conséquence que d'empêcher la fermeture. Toutefois, il vaudrait mieux tester si CloseMode = vbFormControlMenu
À +

 

[bbobb]

Re : interdire fermerture userform

Bonjour Dranreb, et bonjour le forum,
J'ai donc joint une version très simplifié de mon classeur.
en espérant que cela puisse vous aider à m'aider 🙂...

Merci
Bbobb

 

[eriiic]

Re : interdire fermerture userform

Bonjour,

dranreb t'avait donné la réponse :

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

Tu peux aussi ne pas afficher l'icone Croix : Ce lien n'existe plus
Mais est-ce que ça vaut le coup ?

eric

 

[bbobb]

Re : interdire fermerture userform

Bonsoir Eriiiic,
Merci beaucoup, ça fonctionne. Et merci aussi a Dranreb qui m'avait donné la réponse mais que je n'avais pas su exploiter (pas très doué le bbobb 🙂)

Bonne soirée
Bbobb