Les feuilles de calculs souvent cachées sont complètement oubliés. Par exemple, assurez-vous que cela ne se produit pas lorsque vous ouvrez le classeur. Bien sûr, les feuilles masquées ne doivent pas être affichées automatiquement, mais l’utilisateur doit pouvoir décider lui-même s’il veut voir toutes les feuilles ou non.
Private Sub Workbook_Open()
Dim FeuilA As Worksheet
Dim s As String
s = _
MsgBox _
("Voulez-vous voir toutes les feuilles masquées ?", _
vbYesNo)
If s = "" Then Exit Sub
For Each FeuilA In ThisWorkbook.Worksheets
FeuilA.Visible = True
Next
End Sub
Commentaires:
Si l’utilisateur confirme la boîte de dialogue, toutes les feuilles de calculs masquées sont affichées dans le classeur en définissant la propriété Visible de chaque feuille sur la valeur True.
