Bonjour à tous
Ce premier code fonctionne et me permet de poser une protection sur les cellules portant des formules sur la feuille 1.
Code:
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
Code:
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