Les draps de table cachés sont souvent oubliés. Ces feuilles de calcul cachées dorment ensuite dans les classeurs pendant des années. Un jour, vous avez découvert que des feuilles de tableau étaient cachées dans le classeur. La coïncidence peut, par exemple, consister au fait que vous sélectionnez la commande IMPRIMER dans le menu FICHIER et que vous sélectionnez l’option ENTIER DOSSIER DE TRAVAIL dans la boîte de dialogue d’impression. Cette option imprime à la fois les feuilles visibles et masquées d’un classeur.

Vous devez donc écrire une macro qui rend à nouveau visible toutes les feuilles de tableau du classeur actif.

Sub afficherlesfeuillesmasquees ()
Dim mafeuille As Worksheet
  For Each mafeuille In Sheets
   mafeuille.Visible = True
  Next mafeuille
End Sub

Dans une boucle For Each Next, définissez la propriété Visible de toutes les feuilles de calcul sur la valeur True.