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 <> "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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JLuc
*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 <> "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*,
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 <> "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
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 <> "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
Lionel
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" a écrit dans le message de news:
*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 <> "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
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" a écrit dans le message de news:
*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 <> "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
JLuc
*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" a écrit dans le message de news:
*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 <> "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
*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 <> "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
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" a écrit dans le message de news:
*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 <> "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
Lionel
re...
le code s'arrete su commandbuttonX.visibleúlse si j'en supprime un l'erreur se produit aussi sur le suivant.
"JLuc" a écrit dans le message de news:
*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" a écrit dans le message de news:
*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 <> "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.
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.fc717d7309755bfa.40692@free.fr.ns...
*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
le code s'arrete su commandbuttonX.visibleúlse si j'en supprime un l'erreur se produit aussi sur le suivant.
"JLuc" a écrit dans le message de news:
*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" a écrit dans le message de news:
*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