Macro ou événement pour afficher toutes les feuilles de calcul masquées si nécessaire avec Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x