protection feuille et classeur

[poups]

Bonjour,
Existe t'il un code pour protéger toutes les feuilles visible d'un cout, ou doit on obligatoirement le faire feuille par feuille ?

Worksheets("non de chaque feuille").protect Password:="motdepass"
ActiveWorkbook.protect "motdepass"

Mon classeur et toute les feuilles visible doivent être protégé
Mon probleme, c'est quand faisant les feuilles une par une et que toutes les feuilles que je pourrais cité ne sont peut être plus présente dans le classeur (supprimé de facon conditionnel) et donc générerais une erreur d'éxécution sous VB

Merci d'avance

 

[Pierrot93]

Re : protection feuille et classeur

Bonjour,

regarde peut être ceci :

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Visible = xlSheetVisible Then ws.Protect "toto"
Next ws
End Sub

bonne journée
@+

 

[poups]

Re : protection feuille et classeur

Merci beaucoup Pierrot !
C'est exactement ce que je voulais
ca marche c'es super ....
J'aime ce Forum
Poups