afficher des boutons par mot passe

Odesta

XLDnaute Impliqué

• 2 Novembre 2010

• #2

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"

VB:

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

 

Vote positif 0 Vote négatif

3

3ali

Guest

• 2 Novembre 2010

• #3

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 3 Novembre 2010

• #4

Re : afficher des boutons par mot passe

Salut 3ali, Olivier, le Forum

Peut-être comme cela

VB:

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

Bonne Journée

 

Vote positif 0 Vote négatif

3

3ali

Guest

• 3 Novembre 2010

• #5

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

 

Vote positif 0 Vote négatif

Odesta

XLDnaute Impliqué

• 3 Novembre 2010

• #6

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.

 

Vote positif 0 Vote négatif