OVH Cloud OVH Cloud

Croix de fermeture Userform verrouillée

6 réponses
Avatar
Pampa-sr
Salut,

Je souhaite r=E9aliser la chose suivante : rendre la croix=20
de fermeture d'un Useform inactive mais toujours VISIBLE" =20
(elle devient juste inacessible, genre propri=E9t=E9 Enabled /=20
Locked). Ceci pour forcer l'utilisateur =E0 quitter=20
l'application via un bouton "Fermer" sp=E9cialement pr=E9vu =E0=20
cet effet.

Merci bien (on apprend d=E9cid=E9ment beaucoup sur ce forum).

@+

6 réponses

Avatar
Dédé
Salut Pampa-sr !

La macro suivante re permettra de garder l'affichage de la petite crois pour
fermer mais tu pourra pas l'utiliser pour fermer ta fenêtre ...

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Vous ne pouvez pas utiliser ce bouton de fermeture." &
Chr(10) & _
"Pour fermer cette boîte de dialogue, veuillez utiliser le
bouton [Fermer]"
Cancel = True
End If
End Sub

Est-ce que cela te convient ?

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"Pampa-sr" a écrit dans le message
de news:085201c36bab$91da5350$
Salut,

Je souhaite réaliser la chose suivante : rendre la croix
de fermeture d'un Useform inactive mais toujours VISIBLE"
(elle devient juste inacessible, genre propriété Enabled /
Locked). Ceci pour forcer l'utilisateur à quitter
l'application via un bouton "Fermer" spécialement prévu à
cet effet.

Merci bien (on apprend décidément beaucoup sur ce forum).

@+
Avatar
Clément Marcotte
Bonjour,

M'est avis que tu te compliques la vie.

Tu n'as qu'à mettre la propriété Cancel du bouton Fermer à True.
Ensuite, le fait de cliquer sur la croix de fermeture va avoir le même
effet que de cliquer sur le bouton fermer.



"Pampa-sr" a écrit dans le
message de news:085201c36bab$91da5350$
Salut,

Je souhaite réaliser la chose suivante : rendre la croix
de fermeture d'un Useform inactive mais toujours VISIBLE"
(elle devient juste inacessible, genre propriété Enabled /
Locked). Ceci pour forcer l'utilisateur à quitter
l'application via un bouton "Fermer" spécialement prévu à
cet effet.

Merci bien (on apprend décidément beaucoup sur ce forum).

@+
Avatar
Pampa-sr
Salut,

Ca me convient d'autant plus que c'est la solution la plus
courte. Un seul bémol : quand j'évoquais la propriété
enabled / locked, je faisais référence, à l'instar de la
question d'emcy plus loin sur ce forum, à un aspect grisé
du bouton. Est-il possible de rajouter ce résultat sur la
base de la macro que tu proposes ? Merci.

Ciao


-----Message d'origine-----
Salut Pampa-sr !

La macro suivante re permettra de garder l'affichage de
la petite crois pour

fermer mais tu pourra pas l'utiliser pour fermer ta
fenêtre ...


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

If CloseMode = vbFormControlMenu Then
MsgBox "Vous ne pouvez pas utiliser ce bouton
de fermeture." &

Chr(10) & _
"Pour fermer cette boîte de dialogue,
veuillez utiliser le

bouton [Fermer]"
Cancel = True
End If
End Sub

Est-ce que cela te convient ?

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"Pampa-sr" a
écrit dans le message

de news:085201c36bab$91da5350$
Salut,

Je souhaite réaliser la chose suivante : rendre la croix
de fermeture d'un Useform inactive mais toujours VISIBLE"
(elle devient juste inacessible, genre propriété Enabled /
Locked). Ceci pour forcer l'utilisateur à quitter
l'application via un bouton "Fermer" spécialement prévu à
cet effet.

Merci bien (on apprend décidément beaucoup sur ce forum).

@+


.



Avatar
Pampa-sr
Salut,

Ca me convient d'autant plus que c'est la solution la plus
courte. Un seul bémol : quand j'évoquais la propriété
enabled / locked, je faisais référence, à l'instar de la
question d'emcy plus loin sur ce forum, à un aspect grisé
du bouton. Est-il possible de rajouter ce résultat sur la
base de la macro que tu proposes ? Merci.

Ciao


-----Message d'origine-----
Salut Pampa-sr !

La macro suivante re permettra de garder l'affichage de
la petite crois pour

fermer mais tu pourra pas l'utiliser pour fermer ta
fenêtre ...


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

If CloseMode = vbFormControlMenu Then
MsgBox "Vous ne pouvez pas utiliser ce bouton
de fermeture." &

Chr(10) & _
"Pour fermer cette boîte de dialogue,
veuillez utiliser le

bouton [Fermer]"
Cancel = True
End If
End Sub

Est-ce que cela te convient ?

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"Pampa-sr" a
écrit dans le message

de news:085201c36bab$91da5350$
Salut,

Je souhaite réaliser la chose suivante : rendre la croix
de fermeture d'un Useform inactive mais toujours VISIBLE"
(elle devient juste inacessible, genre propriété Enabled /
Locked). Ceci pour forcer l'utilisateur à quitter
l'application via un bouton "Fermer" spécialement prévu à
cet effet.

Merci bien (on apprend décidément beaucoup sur ce forum).

@+


.



Avatar
Dédé
Je viens de voir ton message mais je doit aller manger ...

je te redis cette apm ...

@ +

Dédé

--
Pour répondre, enlever le NOSPAM
"Pampa-sr" a écrit dans le message
de news:0a9e01c36c72$aa148950$
Salut,

Ca me convient d'autant plus que c'est la solution la plus
courte. Un seul bémol : quand j'évoquais la propriété
enabled / locked, je faisais référence, à l'instar de la
question d'emcy plus loin sur ce forum, à un aspect grisé
du bouton. Est-il possible de rajouter ce résultat sur la
base de la macro que tu proposes ? Merci.

Ciao


-----Message d'origine-----
Salut Pampa-sr !

La macro suivante re permettra de garder l'affichage de
la petite crois pour

fermer mais tu pourra pas l'utiliser pour fermer ta
fenêtre ...


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

If CloseMode = vbFormControlMenu Then
MsgBox "Vous ne pouvez pas utiliser ce bouton
de fermeture." &

Chr(10) & _
"Pour fermer cette boîte de dialogue,
veuillez utiliser le

bouton [Fermer]"
Cancel = True
End If
End Sub

Est-ce que cela te convient ?

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"Pampa-sr" a
écrit dans le message

de news:085201c36bab$91da5350$
Salut,

Je souhaite réaliser la chose suivante : rendre la croix
de fermeture d'un Useform inactive mais toujours VISIBLE"
(elle devient juste inacessible, genre propriété Enabled /
Locked). Ceci pour forcer l'utilisateur à quitter
l'application via un bouton "Fermer" spécialement prévu à
cet effet.

Merci bien (on apprend décidément beaucoup sur ce forum).

@+


.



Avatar
Dédé
re ...

Trouve plus le code concernée mais, est-ce vraiment utile de voir la couleur
en gris de ton bouton ?

il me semble que tu cherche à faire compliqué ;-) En quoi cela dérange la
couleur du bouton avec la petite croix ?

Je regarde si jamais je trouve ...

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"Dédé" a écrit dans le message de
news:
Je viens de voir ton message mais je doit aller manger ...

je te redis cette apm ...

@ +

Dédé

--
Pour répondre, enlever le NOSPAM
"Pampa-sr" a écrit dans le
message

de news:0a9e01c36c72$aa148950$
Salut,

Ca me convient d'autant plus que c'est la solution la plus
courte. Un seul bémol : quand j'évoquais la propriété
enabled / locked, je faisais référence, à l'instar de la
question d'emcy plus loin sur ce forum, à un aspect grisé
du bouton. Est-il possible de rajouter ce résultat sur la
base de la macro que tu proposes ? Merci.

Ciao


-----Message d'origine-----
Salut Pampa-sr !

La macro suivante re permettra de garder l'affichage de
la petite crois pour

fermer mais tu pourra pas l'utiliser pour fermer ta
fenêtre ...


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

If CloseMode = vbFormControlMenu Then
MsgBox "Vous ne pouvez pas utiliser ce bouton
de fermeture." &

Chr(10) & _
"Pour fermer cette boîte de dialogue,
veuillez utiliser le

bouton [Fermer]"
Cancel = True
End If
End Sub

Est-ce que cela te convient ?

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"Pampa-sr" a
écrit dans le message

de news:085201c36bab$91da5350$
Salut,

Je souhaite réaliser la chose suivante : rendre la croix
de fermeture d'un Useform inactive mais toujours VISIBLE"
(elle devient juste inacessible, genre propriété Enabled /
Locked). Ceci pour forcer l'utilisateur à quitter
l'application via un bouton "Fermer" spécialement prévu à
cet effet.

Merci bien (on apprend décidément beaucoup sur ce forum).

@+


.