Bonjour à tous,

Logiciel utilisé: Excel 2007

Je voudrais à l'aide du code suivant pouvoir entrer un deuxième mot de passe diferent de "fgp" (par exemple mmp) et lorsque je rentre celui-ci je voudrais voir un bouton en plus sur mon fichier que les autres ne peuvent pas voir avec le premier mot de passe "fgp"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Annuler_Click()
    Unload Me
End Sub
 
Private Sub BoutonOk_Click()
    'Ok = Environ("USERNAME") => "Ton nom"
     'tu peux remplacer la ligne suivante par la précédente
    Ok = Me.Nom.Text = "marc"
    If Not Ok Then Unload Logon
    Ok = Ok And Me.Passe = "fgp"
    If Ok Then
        AfficherLesFeuilles
        Unload Me
       Else
        ThisWorkbook.Close False
    End If
End Sub
 
Private Sub UserForm_Activate()
    Application.EnableEvents = True
    Me.Passe.PasswordChar = "*"
End Sub
 
Sub AfficherLesFeuilles()
    Windows("Acceuil_BE.xls").Visible = True
End Sub
Est-ce possible?

Merci d'avance.