XL 2013 Mot de passe sur bouton

DoubleZero

XLDnaute Barbatruc

• 18 Janvier 2016

• #2

Re : Mot de passe sur bouton

Bonjour à toutes et à tous,

patrick.r7,

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

 

Vote positif 0 Vote négatif

DL_13

XLDnaute Occasionnel

• 19 Janvier 2016

• #3

Re : Mot de passe sur bouton

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

Code:

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

 

Pièces jointes

• mot de passe Patrick.r7.xlsm

  24.3 KB · Affichages: 55

Vote positif 0 Vote négatif

P

patrick.r7

XLDnaute Occasionnel

• 19 Janvier 2016

• #4

Re : Mot de passe sur bouton

Un grand merci.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 19 Janvier 2016

• #5

Re : Mot de passe sur bouton

Bonjour à tous,

ou plus simplement avec ceci:

Code:

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

à+
Philippe

 

Vote positif 0 Vote négatif