Private Sub Cb_Fred_Click()
Dim i As Integer, MdpAdm As String, MesSht As String, TSht() As String
MdpAdm = "[COLOR=blue]citron[/COLOR]"
' Tableau des feuilles à AFFICHER/CACHER séparée par des virgule
MesSht = "Fred.Janv,Fred.Fev,Fred.Mars,Fred.Avr,Fred.Mai,Fred.Juin,Fred.Juil,Fred.Aout,Fred.Sept,Fred.Oct,Fred.Nov,Fred.Dec"
TSht = Split(MesSht, ",")
'
If Cb_Fred.Caption = "Afficher les feuilles [COLOR=red]de Frédérique[/COLOR]" Then
' Demander le mot de passe Administrateur
If InputBox("Merci de saisir le mot de passe !", "MdP Administrateur ...") <> MdpAdm Then Exit Sub
For i = 0 To UBound(TSht)
Sheets(TSht(i)).Visible = xlSheetVisible
Next i
Cb_Fred.Caption = "Masquer les feuilles [COLOR=red]de Frédérique[/COLOR]"
Cb_Fred.BackColor = 7173875
Else
For i = 0 To UBound(TSht)
Sheets(TSht(i)).Visible = xlSheetVeryHidden
Next i
Cb_Fred.Caption = "Afficher les feuilles [COLOR=red]de Frédérique[/COLOR]"
Cb_Fred.BackColor = 12381844
End If
Range("A1").Select
End Sub