XL 2016 code pour masquer les onglets sauf la page d’accueil

[Seddiki_adz]

Bonsoir
je lance a touts le monde qui peut m'aider de faire un code pour masquer les onglets sauf la page d’accueil
Merci

 

[TooFatBoy]

Bonjour,

Sub Masquer()
    For Each sh In Worksheets
        If sh.Name <> "O" Then sh.Visible = False
    Next sh
End Sub

 

[Seddiki_adz]

Bonjour,

Sub Masquer()
    For Each sh In Worksheets
        If sh.Name <> "O" Then sh.Visible = False
    Next sh
End Sub

Merci
et comment afficher les autres onglet

 

[TooFatBoy]

Pour démasquer tous les onglets :

Sub Demasquer()
    For Each sh In Worksheets
        sh.Visible = True
    Next sh
End Sub

 

[Seddiki_adz]

Pour démasquer tous les onglets :

Sub Demasquer()
    For Each sh In Worksheets
        sh.Visible = True
    Next sh
End Sub

j'ai utiliser le code masquer les lien yhpertexte ne fonctionne plus ?

 

[TooFatBoy]

Aucun problème chez moi, les liens hypertexte fonctionnent toujours.

 

[Seddiki_adz]

chez moi non plus

 

[TooFatBoy]

Il n'y a aucune raison pour les liens hypertexte ne fonctionnent plus.

 

[TooFatBoy]

Ca n'a rien à voir, mais je me pose quand même une question : vu que tu as Excel 2016, pourquoi enregistrer tes classeurs au format obsolète Excel 97-2003 ???

 

[Seddiki_adz]

Ca n'a rien à voir, mais je me pose quand même une question : vu que tu as Excel 2016, pourquoi enregistrer tes classeurs au format obsolète Excel 97-2003 ???

Merci