Code Vba Pour masquer les Feuilles

Résolu/Fermé
gham
Messages postés
48
Date d'inscription
samedi 8 décembre 2007
Statut
Membre
Dernière intervention
7 novembre 2021
- 16 janv. 2008 à 19:46
 MOMO - 24 avril 2017 à 23:21
Bonjour,
Je voudrais un code vba pour masquer les feuilles d'un classeur qu'on ne peut pas les afficher à partir du Format/Feuille/Afficher.
Avec tous mes respects.

10 réponses

eriiic
Messages postés
24393
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
26 mai 2022
7 078
16 janv. 2008 à 22:08
Bonsoir,

Juste un complément à la macro de michel qui n'a pas dû tout lire.

Pour ne pas pouvoir les ré-afficher par le menu remplace:
.Visible = 0 par .Visible = xlSheetVeryHidden
Sub masquer()
    Dim nbre As Byte, cptr As Byte
    Application.ScreenUpdating = False
    nbre = ThisWorkbook.Sheets.Count
    cptr = 2
    For cptr = 2 To nbre
        Sheets(cptr).Visible = xlSheetVeryHidden
    Next
    Application.ScreenUpdating = False
End Sub
eric
19
merci mr ERIC
0