Ouvrir une feuille par mot de passe

Bonjour a tous

je suis sur feuille 1 par un bouton je veux passer sur feuille 2 par un mot de passe (un message doit apparaitre pour me demander ce mot de passe si oui ouverture si non ressaisir mot de passe) qui est masquer .

cordialement

aiglon74

Bonjour

Voir fichier

mdp:aiglon74

Code dans ThisWorkBook

Private Sub Workbook_Open()
Sheets("Feuil2").Visible = xlVeryHidden
UserForm1.Show
End Sub

Code Bouton Ok de la Userform

Private Sub b_ok_Click()
  If Me.TextBox1 = "aiglon74" Then 
    Unload Me
    Sheets("Feuil2").Visible = xlSheetVisible
  Else
    MsgBox "erreur"
    Me.TextBox1 = ""
    Me.TextBox1.SetFocus
  End If
End Sub

Cordialement

Bonjour,

le fichier en pièce jointe devrait te convenir.

le mot de passe : motdepasse

Cordialement

bonjour Amadeus Ednoork

merci pour vos réponse rapide et de plus efficace

A+

aiglon74