Bonjour à tous
Ce premier code fonctionne et me permet de poser une protection sur les cellules portant des formules sur la feuille 1.
Par contre dès que je tente de l'inclure dans une boucle sur les feuilles, ça génère une erreur
ERREUR 1004 Impossible de définir la propriété Locked de la classe range
Qqn peut m'aider à comprendre ?
Merci
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
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 myshQqn peut m'aider à comprendre ?
Merci