XL 2013 Mot de passe sur bouton

[patrick.r7]

Messieurs,
Comment fait on pour mettre un mot de passe sur un bouton.
Ci joint mon exemple.
Cdt

 

[DoubleZero]

Re : Mot de passe sur bouton

Bonjour à toutes et à tous,

patrick.r7,

Qu'en est-il de cette discussion ?...

 

[DL_13]

Re : Mot de passe sur bouton

Bonjour Patrick, 00
Un essai avec une InputBox dans le module de la feuille Som

Option Explicit
Dim MdP As String

Private Sub CommandButton1_Click()
MdP = InputBox("Veuillez mettre le mot de passe", "MdP")
If MdP <> "12345" Then MsgBox "Mot de passe incorrect...": Exit Sub
With Feuil2
  .Visible = xlSheetVisible
  .Activate 'Ouverture feuille Récap
End With
End Sub

Bonne Journée

 

[patrick.r7]

Re : Mot de passe sur bouton

Un grand merci.

 

[phlaurent55]

Re : Mot de passe sur bouton

Bonjour à tous,

ou plus simplement avec ceci:

Private Sub CommandButton1_Click()
Sheets(2).Visible = (CStr(InputBox("Entrez le mot de passe")) = "12345") * -1
Sheets(2).Activate
End Sub

à+
Philippe