procedure a corriger

bonjour,
sur une page un bouton qui ouvre un userform de mot de passe qui "debloque"
des bouton qui donne acces a des fonctions supplementares.. Oui mais ce ne
fonctionne pas j'ai du oublier un detail .... Quelqu'un pourrait il me dire
lequel?
Merci a vous


Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
Unload UserForm1
If user = "xxxwx" And mpuser = "yyyyy" Then _
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False

If user = "xxxxx" And mpuser = "wwwww" Then _

CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then _
MsgBox "Login ou Mot de passe non reconnu !", vbCritical + vbExclamation +
vbOKOnly, "Vérification Accès"
End If
End Sub



Private Sub UserForm_Initialize()
TextBox1 = ""
TextBox2 = ""
Load UserForm1
End Sub

*Bonjour Lionel*,

Essaie en modifiant ainsi :

Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
UserForm1.Hide
If user = "xxxwx" And mpuser = "yyyyy" Then
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False
End If

If user = "xxxxx" And mpuser = "wwwww" Then
CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True
End If

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then
MsgBox "Login ou Mot de passe non reconnu !", vbCritical + _
vbExclamation + vbOKOnly, "Vérification Accès"
End If
Unload UserForm1
End Sub

bonjour,
sur une page un bouton qui ouvre un userform de mot de passe qui
"debloque"

des bouton qui donne acces a des fonctions supplementares.. Oui mais ce
ne

fonctionne pas j'ai du oublier un detail .... Quelqu'un pourrait il me
dire

lequel?
Merci a vous


Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
Unload UserForm1
If user = "xxxwx" And mpuser = "yyyyy" Then _
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False

If user = "xxxxx" And mpuser = "wwwww" Then _

CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then _
MsgBox "Login ou Mot de passe non reconnu !", vbCritical + vbExclamation
+

vbOKOnly, "Vérification Accès"
End If
End Sub



Private Sub UserForm_Initialize()
TextBox1 = ""
TextBox2 = ""
Load UserForm1
End Sub

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

bonsoir
j'ai modifier le code comme suggere malgre cela le code s'arrete sur une
erreur d'execution 424 : objet requis.
J'ai encore besoin de votre aide!
merci
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.fa047d73e6198cde.40692@free.fr.ns...

*Bonjour Lionel*,

Essaie en modifiant ainsi :

Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
UserForm1.Hide
If user = "xxxwx" And mpuser = "yyyyy" Then
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False
End If

If user = "xxxxx" And mpuser = "wwwww" Then
CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True
End If

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then
MsgBox "Login ou Mot de passe non reconnu !", vbCritical + _
vbExclamation + vbOKOnly, "Vérification Accès"
End If
Unload UserForm1
End Sub

bonjour,
sur une page un bouton qui ouvre un userform de mot de passe qui "debloque"
des bouton qui donne acces a des fonctions supplementares.. Oui mais ce ne
fonctionne pas j'ai du oublier un detail .... Quelqu'un pourrait il me dire
lequel?
Merci a vous


Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
Unload UserForm1
If user = "xxxwx" And mpuser = "yyyyy" Then _
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False

If user = "xxxxx" And mpuser = "wwwww" Then _

CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then _
MsgBox "Login ou Mot de passe non reconnu !", vbCritical + vbExclamation +
vbOKOnly, "Vérification Accès"
End If
End Sub



Private Sub UserForm_Initialize()
TextBox1 = ""
TextBox2 = ""
Load UserForm1
End Sub

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

*Bonjour Lionel*,
Sur quelle ligne ?

bonsoir
j'ai modifier le code comme suggere malgre cela le code s'arrete sur une
erreur d'execution 424 : objet requis.
J'ai encore besoin de votre aide!
merci
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.fa047d73e6198cde.40692@free.fr.ns...

*Bonjour Lionel*,

Essaie en modifiant ainsi :

Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
UserForm1.Hide
If user = "xxxwx" And mpuser = "yyyyy" Then
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False
End If

If user = "xxxxx" And mpuser = "wwwww" Then
CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True
End If

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then
MsgBox "Login ou Mot de passe non reconnu !", vbCritical + _
vbExclamation + vbOKOnly, "Vérification Accès"
End If
Unload UserForm1
End Sub

bonjour,
sur une page un bouton qui ouvre un userform de mot de passe qui
"debloque"

des bouton qui donne acces a des fonctions supplementares.. Oui mais
ce ne

fonctionne pas j'ai du oublier un detail .... Quelqu'un pourrait il me
dire

lequel?
Merci a vous


Private Sub CommandButton1_Click()
user = TextBox1.Value
mpuser = TextBox2.Value
Unload UserForm1
If user = "xxxwx" And mpuser = "yyyyy" Then _
CommandButton60.Visible = False
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = False

If user = "xxxxx" And mpuser = "wwwww" Then _

CommandButton60.Visible = True
CommandButton62.Visible = True
CommandButton63.Visible = True
CommandButton64.Visible = True

If user <> "xxxxx" And mpuser <> "yyyyy" And mpuser <> "wwwww" Then _
MsgBox "Login ou Mot de passe non reconnu !", vbCritical +
vbExclamation +

vbOKOnly, "Vérification Accès"
End If
End Sub



Private Sub UserForm_Initialize()
TextBox1 = ""
TextBox2 = ""
Load UserForm1
End Sub

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

re...

le code s'arrete su commandbuttonX.visibleúlse
si j'en supprime un l'erreur se produit aussi sur le suivant.