XL 2013 Mot de passe sur bouton

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

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