afficher des boutons par mot passe

[3ali]

Bonjour mes amis,
j'ai 1 feuille qui contient des boutons pour naviguer dans différente feuille de classeur excel ( 5 boutons)
je veux afficher 1 seul bouton mais les autres va etre afficher ou activer si un mot de passe est saisie dans une cellule

 

[Odesta]

Re : afficher des boutons par mot passe

Bonjour

Voici un morceau de code à copier et à adapter à la feuille contenant les boutons
Dans ma feuille j'ai le mot de passe "MDP" qui doit être rentré en D2, et j'ai un bouton nommé "CommandButton1"

Private Sub Worksheet_Change(ByVal Target As Range)

' **** pour le bouton 1 ****
If CommandButton1.Visible = False Then
    If Range("D2").Value = "MDP" Then
        CommandButton1.Visible = True
    Else
        CommandButton1.Visible = False
    End If
End If
'*******


End Sub

Cordialement
Olivier

 

[3ali]

Re : afficher des boutons par mot passe

bonsoir
merci odesta pour ta reponse le code marche bien mais lorsque je supprime le mot de passe
(D2 vide) normalement le bouton1 devient invisible
- il ya deux condition:lorsque j'écris ds D2 "MDP" bouton 1 est visible ou actif
et si D2 est vide bouton 1 est invisible ou inactif
et merci

 

[Dull]

Re : afficher des boutons par mot passe

Salut 3ali, Olivier, le Forum

Peut-être comme cela

Private Sub Worksheet_Change(ByVal Target As Range)
    CommandButton1.Visible = IIf([D2] = "MDP" And [D2] <> "", True, False)
End Sub

Bonne Journée

 

[3ali]

Re : afficher des boutons par mot passe

Bonjour
merci dull et odesta pour les reponse
ca marche mais si je fais une enregistrement sur mon classeur je laisse parfois le mot de passe dans D2 (par oubli) apres si j'ouvre une autre fois mon classeur je trouve MDP afficher ds D2 et le bouton aussi (normalement pas de MDP ds D2 ni bouton1 visible

 

[Odesta]

Re : afficher des boutons par mot passe

Bonjour
Pour cela, je pense qu'il suffit de mettre le bouton à invisible par défaut. Dans les paramètres du bouton.