OVH Cloud OVH Cloud

propriété Locked de la classe Ran

1 réponse
Avatar
usul
Bonjour

petit pb urgent sur une macro excel 2000 qui fonctionnait mais maintenant me
dit :
"Impossible de définir la propriété Locked de la classe Range ?"

j'avais à l'origine 12 feuilles (1/mois : "janvier" "février" ...)

je ne sais pas si cela a un rapport mais j'ai rajouté une 13ème feuille que
j'ai placé en 1ère position et qui contient du texte et des formules de
calcul (qui reprennent des éléments sur les 12 autres feuilles)

voilà la disposition des feuilles dans le classeur et dans VBE :
http://cjoint.com/?mgoN2NGL0a

[Public Sub Protection()

For i = 2 To 13 'ou For i = 1 To 12


Worksheets(i).Unprotect Password:="blablabla"

Worksheets(i).Range("B2:D4").Locked = False
Worksheets(i).Range("D11:D11").Locked = False
Worksheets(i).Range("D15:G45").Locked = False
Worksheets(i).Range("B13:B13").Locked = False
Worksheets(i).Range("O15:P45").Locked = False

If i = 1 Then
Worksheets(i).Range("M11:N11").Locked = False
End If

Worksheets(i).Protect Password:="blablabla"

Next i

End Sub]

celle de déprotection fonctionne bien
[Public Sub déprotection()
For i = 1 To 13
Worksheets(i).Unprotect Password:="blablabla"
Next i

End Sub]

j'ai essayé différentes solutions qu'on m'a proposées :
-faire Unprotect en début de macro
-les cellules cibles pour Locked = False sont déverrouillées dans
-Format/cellule/protection

mais toujours rien
et ça devient urgent pour moi d'avoir cette macro de nouveau opérationnelle

merci pour l'aide apportée (même si c'est une autre macro)

1 réponse

Avatar
FILK
Je veux bien t'aider mais j'ai besoin du fichier et non d'une photo. J'ai
2003, ca devrait donc bugguer

Pour info, je viens de tester sur un fichier non protégé :

Worksheets(1).Range("B2:D4").Locked = False
Worksheets(1).Range("B2:D4").Locked = true

et ca marche sans probleme.

As-tu vérifier tes références dans outilreferences ?

Bon courage.

Philippe


Bonjour

petit pb urgent sur une macro excel 2000 qui fonctionnait mais maintenant me
dit :
"Impossible de définir la propriété Locked de la classe Range ?"

j'avais à l'origine 12 feuilles (1/mois : "janvier" "février" ...)

je ne sais pas si cela a un rapport mais j'ai rajouté une 13ème feuille que
j'ai placé en 1ère position et qui contient du texte et des formules de
calcul (qui reprennent des éléments sur les 12 autres feuilles)

voilà la disposition des feuilles dans le classeur et dans VBE :
http://cjoint.com/?mgoN2NGL0a

[Public Sub Protection()

For i = 2 To 13 'ou For i = 1 To 12


Worksheets(i).Unprotect Password:="blablabla"

Worksheets(i).Range("B2:D4").Locked = False
Worksheets(i).Range("D11:D11").Locked = False
Worksheets(i).Range("D15:G45").Locked = False
Worksheets(i).Range("B13:B13").Locked = False
Worksheets(i).Range("O15:P45").Locked = False

If i = 1 Then
Worksheets(i).Range("M11:N11").Locked = False
End If

Worksheets(i).Protect Password:="blablabla"

Next i

End Sub]

celle de déprotection fonctionne bien
[Public Sub déprotection()
For i = 1 To 13
Worksheets(i).Unprotect Password:="blablabla"
Next i

End Sub]

j'ai essayé différentes solutions qu'on m'a proposées :
-faire Unprotect en début de macro
-les cellules cibles pour Locked = False sont déverrouillées dans
-Format/cellule/protection

mais toujours rien
et ça devient urgent pour moi d'avoir cette macro de nouveau opérationnelle

merci pour l'aide apportée (même si c'est une autre macro)