Comment faire une boucle sur l'ensemble des feuilles d'un classeur pour protéger?

[Paritec]

Bonjour Le forum,
J'aimerais faire une boucle pour protéger l'intégralité des feuilles d'un classeur.
dans l'attente de vos réponses,
amicalement
Papou

 

[Staple1600]

Re : Comment faire une boucle sur l'ensemble des feuilles d'un classeur pour protéger

Bonjour

Sub prot_all()
Dim ws As Worksheet
For Each ws In Sheets
ws.Protect
Next
End Sub

 

[Paritec]

Re : Comment faire une boucle sur l'ensemble des feuilles d'un classeur pour protéger

Bonjour Staple, le forum,
bah dis-donc, encore un peu et j'avais pas le temps de créer ma question que tu avais déjà répondu!!!
Merci beaucoup Staple a+
amicalement
Papou

 

[BOISGONTIER]

Re : Comment faire une boucle sur l'ensemble des feuilles d'un classeur pour protéger

Bonjour,

Avec protection:

For Each s In Sheets
  s.Protect Password:="toto"
Next

JB

 

[Paritec]

Re : Comment faire une boucle sur l'ensemble des feuilles d'un classeur pour protéger

Bonjour Boigontier, le forum,
Je te remercie de la précision qui me servira une autre fois mais que je vais noter et tenir au chaud.
C'est juste une protection pour éviter les erreurs de manipulations
merci à tous de vos réponses
a+
papou