interdire la fermeture d'un userform

[philippek]

bonsoir
J'ai fait un userform pour demander un code d'acces à mon fichier mais il existe toujours le moyen de fermer avec la croix mon userform qui ne sert donc à rien pourtant j'aime bien la présentation
comment faire
d'avance merci

 

[Pierrot93]

Re : interdire la fermeture d'un userform

Bonsoir Philippe,

tu mets le code ci dessous dans le code de la feuille USF

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

Bonne soirée
@+

 

[philippek]

Re : interdire la fermeture d'un userform

merci pour le codage
mais j'ai un autre problème dans mon userform de code si on ne rentre rien cela marche aussi
Merci pour le temps passé à répondre à un novice

 

[Pierrot93]

Re : interdire la fermeture d'un userform

Bonjour Philippe

le code que je t ais donné empêche uniquement la fermeture par la croix de l'USF, après c'est lors de la validation que tu peux controler par programme que la valeur est bien rensignée et éventuellement valide !!!

Si tu n'y arrive pas met un exemple pour que je puisse regarder.

Bonne journée
@+

 

[Pierrot93]

Re : interdire la fermeture d'un userform

Re Philippe

J ai retrouvé le code que j avais mis sur un USF avec 1 texbox et 2commandbouton, un pour valider et un pour sortir.

Si ca peut t aider

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then MsgBox ("Vous devez rentrer" & (Chr(10)) _
& "un mot de passe !!!"), vbInformation + vbOKOnly, _
"Message de Pierrot93": Exit Sub
If TextBox1.Value = "123456" Then
Unload Me
Else
MsgBox ("Mot de passe erroné !!!"), vbInformation + vbOKOnly, _
"Message de Pierrot93"
TextBox1.Value = ""
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc(0) To Asc(9)
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = 1
End Sub



@+