boucle objet imbriqué et protection de feuille

[alexane]

Bonjour à tous
Ce premier code fonctionne et me permet de poser une protection sur les cellules portant des formules sur la feuille 1.

For Each mycel In ActiveSheet.UsedRange
        mycel.Locked = False
        If mycel.HasFormula Then mycel.Locked = True
Next mycel
ActiveSheet.Protect Contents:=True

Par contre dès que je tente de l'inclure dans une boucle sur les feuilles, ça génère une erreur

For Each mysh In Worksheets
   For Each mycel In mysh.UsedRange
        mycel.Locked = False
        If mycel.HasFormula Then mycel.Locked = True
    Next mycel
    mysh.Protect Contents:=True
Next mysh

ERREUR 1004 Impossible de définir la propriété Locked de la classe range
Qqn peut m'aider à comprendre ?
Merci

 

[Pierrot93]

Re : boucle objet imbriqué et protection de feuille

Bonjour,

Ton code fonctionne chez moi, sans doute la feuille est protégée lorsuqe tu veux bloquer la cellule...

bon après midi
@+