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 24560 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 février 2024 7 206
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