Code Vba Pour masquer les Feuilles [Résolu]

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

Bonjour,

Worksheets("Feuil2").visible=0

pour rendre visible
Worksheets("Feuil2").visible=

re,

En supposant que ta feuille principale est la première concue et la première du classeur

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 = 0
Next

Application.ScreenUpdating = False

End Sub

Merci ami
mais je veux un code pour masquer toutes les feuilles du ckasseur qui contient plus de 20 feuilles.
Toutes les feuilles à la fois sauf bien sûr la principale

Oui c'est ça Merci, mais en allant au format/Feuille/ on trouve les feuilles masquées, ce que je veux qu'elles soient aussi masquer dans Formt/Feuille.

Exact, Merci Eric

Salut, je pense que le second "Application.ScreenUpdating" devrait être rétabli par "= True".
Ce qui donne :

_______________________________________

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 = True

End Sub
_______________________________________

Bon codage à tous !

Beckett299

bonjour

quelle réactivité! 2 ans après!

je pense que le second "Application.ScreenUpdating" devrait être rétabli par "= True".


Tu penses mal.

Si la macro rend la main au systeme, il n'est pas nécessaire de rétablir à "true"

Consulte cet article de Laurent Longre:
http://xcell05.free.fr/pages/prog/accvba.htm

C'est pas parcequ'un sujet a été créé il y a longtemps qu'il ne faut pas y apporter sa contribution michel :-)

Merci pour l'article, Je ne le savais pas.
je le garde sous le coude.