aide sur code de mot de passe

[LEbelge66]

bonjour les savants
j'ai un enorme soucis et je voulais solliciter votre aide
j'ai fait mon code sous vb /excel
pour permettre afficher les feuilles selon l'utilisateur mais le soucis est ke j'arrive pas le faire fonctionner correctement voici
tout d'abord il y'avais une erreur ki se nommait flgok (souligné en rouge) je l'ai declarer en plublic ok cool mais apres quand je tape le mot de passe alors il me dis mot de passe eronné alors ke c'est le bon

Option Explicit
Dim MdpAdm As String
Public FlgOK As Boolean







Private Sub BnValider_Click()
' Demander le mot de passe Administrateur
If Me.TextBox1 = MdpAdm Then
FlgOK = True
Else
FlgOK = False
End If
Me.Hide
End Sub


Private Sub BnAnnuler_Click()
FlgOK = False
Me.Hide
End Sub

Private Sub UserForm_Initialize()
Me.TextBox1.Value = ""
MdpAdm = "essai"
End Sub
//////////////////////////////////////////////////
Private Sub CB_1_Click()
Dim I As Integer, MesSht As String, TSht() As String
' Tableau des feuilles à AFFICHER/CACHER séparée par des virgule
MesSht = "APPLICATION,MENU CONSULTATION,MENU SAISIE,SAISIE MARCHE"
TSht = Split(MesSht, ",")
'
If CB_1.Caption = "Afficher les feuilles" Then
' Demander le mot de passe
USF_Mdp.TextBox1.Value = ""
USF_Mdp.Show
If FlgOK = False Then
MsgBox "Mot de passe érroné !"
Exit Sub
End If
' Si OK, masquer les feuilles
For I = 0 To UBound(TSht)
Sheets(TSht(I)).Visible = xlSheetVisible
Next I
CB_1.Caption = "Masquer les feuilles"
CB_1.BackColor = 255
Else
For I = 0 To UBound(TSht)
Sheets(TSht(I)).Visible = xlSheetVeryHidden
Next I
CB_1.Caption = "Afficher les feuilles"
CB_1.BackColor = 32768
End If
Range("A1").Select
End Sub

 

[LEbelge66]

Re : aide sur code de mot de passe

personne pour un coup de pouce