Discussion :

[mulanzia2003]

Bonjour,
je souhaiterai empêcher les utilisateurs de fermer par la croix Rouge, certains userform.
Est-ce possible ? comment et/ou par quel code ???

[SfJ5Rpw8]

oui c'est possible en passant à true le paramétre Cancel de l'action évenemetielle QueryClose ... par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim bAutoriseFermeture As Boolean
 
Private Sub UserForm_Activate()
bAutoriseFermeture = False
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 Cancel = Not bAutoriseFermeture
End Sub
 
Private Sub CommandButton1_Click()
  bAutoriseFermeture = True
  Unload Me
End Sub

le bouton CommandButton1 est la pour permettre la fermeture...

[mulanzia2003]

ok pour ton code mais moi cela ne marche pas chez moi.
J'ai mis ton code dans mon Userform !!!
Est ce la bonne place ???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub Accueil_Activate()
bAutoriseFermeture = False
End Sub
Private Sub Accueil_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = Not bAutoriseFermeture
End Sub

Merci

[SfJ5Rpw8]

il manque la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim bAutoriseFermeture As Boolean

à mettre tout en haut du code à ton userform ( variable globale.. )

[mulanzia2003]

non, en fait je l'ai mis aussi. Cela ne marche pas quand même. Je ne comprend pas pourquoi.

[SfJ5Rpw8]

non, en fait je l'ai mis aussi. Cela ne marche pas quand même. Je ne comprend pas pourquoi.

tu est sur de l'avoir bien mis..? ton userform s'appelle bien Acceuil..? place un point d'arrêt (F9) sur la ligne cancel=... histoire de voir si tu y passe bien lorsque tu clique sur la croix, et à ce moment la tu pourra vérifier la valeur de la variable bAutoriseFermeture