bouton fermer d'un userformRésolu

Question

Bonjour,

Avant tout je tiens à m'excuser par avance de ne pas avoir su faire marcher le code existant puisque j'ai vu qu'il existait pas mal de chose à ce sujet.

Voilà je souhaiterais seulement qu'au lancement de mon formulaire la croix "fermer" ne s'affiche pas.

Je ne crois pas avoir vu de propriété a changer pour la désactiver... Faut-il que j'écrive quelque chose dans un "UserForm_Initialize" ?

Merci d'avance
Inea

cs_inea · Accepted Answer

Je n'ai pas trouvé le control box dans les propriétés du userform du coup je me suis débrouillée autrment 




Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If CloseMode vbFormControlMenu Then Cancel True
End Sub


du coup la croix est toujours là mais quand on appuie dessus ça ne ferme pas le userform

cs_casy · Answer

Pour supprimer tous les boutons (y compris la croix) de la barre de titre, il faut mettre la propriété ControlBox à false sur ta feuille. Sevyc64 (alias Casy)

# LE PARTAGE EST NOTRE FORCE #

cs_DARKSIDIOUS · Answer

Ce sujet a déjà été largement traîté dans le forum et dans les sources, tu n'as pas trouvé ton bonheur avec le moteur de recherche du site ?

cs_inea · Answer

Merci Casy


Et oui Dark j'ai bien cherché mais étant débutante j'ai du mal à tout suivre des fois, il me faut une explication toute simple plutot que des zip a télécharger que je comprends pas toujours :o)

cs_casy · Answer

Dsl, Inea, la solution que je t'ai donné est valable pour VB6. Je n'avais pas percuté que tu étais en VBA. Je ne connais pas bien VBA, mais apparenment cette propriété n'existe pas. Mais ta solution est valable. De plus elle te permet même de rajouter un message pour dire à l'utilisateur qu'il n'a pas le droit de fermer la fenetre, qu'il est obliger de rester bosser devant. Sevyc64 (alias Casy)

# LE PARTAGE EST NOTRE FORCE #

cs_DARKSIDIOUS · Answer

La solution consiste à passer par les API de windows (comme expliqué dans pas mal de threads du forum) :

Private Declare Function GetSystemMenu Lib "user32" ( _
ByVal hwnd As Long, _
ByVal bRevert As Long) As Long

Private Declare Function DeleteMenu Lib "user32" ( _
ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long

Private Const MF_BYCOMMAND = &H0
Private Const SC_CLOSE = &HF060

Public Sub DisabledCloseButton(ByVal lHWndForm As Long)

Dim lMenu As Long

    Let lMenu = GetSystemMenu(lHWndForm, 0)
    Call DeleteMenu(lMenu, SC_CLOSE, MF_BYCOMMAND)

End Sub

PCPT · Answer

salut,

une petite classe ici

++
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

cs_inea · Answer

Merci bcp à tous pour vos réponses !

Bouton fermer d'un userform

8 réponses

Votre réponse

Discussions similaires