Mot de passe avant l'ouverture d'un formulaire

Bjr à tous,

J'ai un bouton qui ouvre un formulaire, et je voudrais que se formulaire ne s'affiche qu'avec un mot de passe. J'ai trouver sur internet des bouts de codes, mais je ne suis pas sur que se soit adapté à ce que je veux faire.

ActiveSheet.Unprotect password:="passe"

Merci de votre aide

Vois si le code proposé par Amadéus dans le fil suivant peut être adapté à ton formulaire.

https://www.excel-pratique.com/forum/viewtopic.php?t=5619&highlight=mot

Cordialement

V_Elbie

Merci pour le lien, mais je n'arrive pas à lire la macro du fichier qu'il a poster Mais ca correspond bien a ce que je rechercher. comment je peux faire pour arriver a lire sa macro?

Re,

Le mot de passe pour lire la macro est indiqué dans le fichier : c'est le même mot de passe que pour déprotéger la feuille, et si je ne me trompe pas, ça a quelque chose à voir avec le nom de l'auteur de tout ça.

mot de passe = MDP

Attention aux minuscules, majuscules et accent, tout compte pour un mot de passe !

Cordialement,

V_Elbie

Edit : pour être plus claire, le mot de passe n'est pas MDP, mais il faut chercher MDP dans la page pour trouver le mot de passe

D'accord, je vais essayer, merci bien

Bonjour

Quelques précisions:

Le mot de passe pour afficher la Feuille 2 est Amadéus

Le mot de passe pour visualiser le Code VBA est Amadéus

Le mot de Pazsse de Protection du Code est Amadèus

Les différents Codes utilisés:

1) Code dans ThisWorkbook

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

2) Code du Module1

Option Explicit

Private Sub essai()
   UserForm1.Show
End Sub

3) Code Userform1 (Cliquer 2 fois dans l'Userform pour afficher et remonter en haut de la page de Code)

Private Sub b_ok_Click()
  If Me.TextBox1 = "Amadéus" Then

    Unload Me
    Sheets("Feuil2").Visible = xlSheetVisible
    Sheets("Feuil2").Select

  Else
    MsgBox "erreur"
    Me.TextBox1 = ""
    Me.TextBox1.SetFocus
  End If
End Sub

4) Protection du Code (Double Click dans la Fenêtre VBA Project)

Le Mot de Passe est Amadéus

Cordialement