mot de passe onglet caché

Option Explicit
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 = "Feuil2,Feuil4,Feuil5,Feuil7"
  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 = True
    Next I
    CB_1.Caption = "Masquer les feuilles"
    CB_1.BackColor = 255
  Else
    For I = 0 To UBound(TSht)
      Sheets(TSht(I)).Visible = False
    Next I
    CB_1.Caption = "Afficher les feuilles"
    CB_1.BackColor = 32768
  End If
  Range("A1").Select
End Sub