Re-bonjour, j'ai encore une petite demande afin d'assurer la bonne utilisation de mon classeur par les collègues.
Au niveau de la page d'accueil, c'est à dire la feuille sommaire, j'ai donc deux boutons pour afficher ou cacher les en-têtes de colonnes dans toutes les feuilles, ça fonctionne impeccable, merci.
Néanmoins, pour éviter qu'un petit malin joue avec ce bouton, est ce qu'il serait possible de rajouter une ligne de commande dans la macro ci-dessous servant à l'affichage permettant de passer par une petite boite (InputBox) et d'entrer un code avant que cette macro s'active ? D'avance, merci beaucoup, Chti59xcel
Sub Affiche_Entête()
Dim f As Worksheet
Application.ScreenUpdating = False
For Each f In Sheets
If Sheets(f.Name).Visible = True Then
Sheets(f.Name).Select
ActiveWindow.DisplayHeadings = True
Else
Sheets(f.Name).Visible = True
Sheets(f.Name).Select
ActiveWindow.DisplayHeadings = True
Sheets(f.Name).Visible = False
Application.ScreenUpdating = True
End If
Next
End Sub