chaelie2015
XLDnaute Accro
Forum Bonjour
je souhaite ajouter a ce code un Pass Word avant d'afficher les colonnes ?
SALUTATION
Code:
Sub Bouton1_QuandClic()
If Range("AQ1").EntireColumn.Hidden = True Then ' La colonne est deja cachée
Range("AQ1, AW1, AY1").EntireColumn.Hidden = False ' je les montre
Else
Range("AQ1, AW1, AY1").EntireColumn.Hidden = True ' je les cache
End If
End Sub
SALUTATION
Dernière édition: