Protection feuilles sous VBA

[Tophe2]

Bonjour le Forum,

J'ai un fichier qui contient une vingtaine de feuilles en fonction du nombre de personne sur le centre je cache des feuilles afin d'avoir le nombre de feuille égal au nombre de personne. J'ai donc plusieurs fichiers avec x onglets masqués en fonction des éléments ci dessus...

J'ai donc une macro qui me permet quand je le souhaite de déprotéger TOUTES les feuilles une à une et de les protéger à la demande, le problème c'est que si j'ai par exemple 4 feuilles de masqués la macro plante est il possible de demander de protéger uniquement les onglet affichés et non ceux masqués sans avoir à modifier les macro manuellement pour TOUS les fichiers ?

voilà la macro pour déprotéger :
Feuil3.Select
Feuil3.Unprotect ("toto")

Feuil4.Select
Feuil4.Unprotect ("toto")
.......

et pour protéger
Feuil3.Select
Feuil3.Protect ("toto")

Feuil4.Select
Feuil4.Protect ("toto")
......

Merci pour votre aide
Bonne Journée
Christophe.

 

[Chris24]

Bonjour

comme ceci peut-être

Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
    If Sh.Visible Then
        Sh.Protect ("toto")
    End If
Next

Bonne journée

 

[Tophe2]

Bonjour Chris24,

Un grand merci c'est super

Bonne Journée
Christophe.