P pacoako XLDnaute Occasionnel 18 Juin 2009 #1 Bonjour à tous, Je cherche la façon d'inscrire le mot de passe via vba pour déprotéger une plage qui est vérouillé par le code suivant : Code: Feuil1.Protection.AllowEditRanges.Add Title:="Allo", Range:=Range("F4:Y739"), Password:="123" Ça srait ci simple si je pouvais l'écrire comme suit : Code: Feuil1.Protection.AllowEditRanges.Index(1) Password:="123" Mais ça ne fonctionne pas une miette Quelqu'un a une idée??? pour l'instant la seule façon que j'ai trouvé c'est en utilisant la fonction .delete... impliquant qu'il faudrait que je réajoute cette plage à chaque fois..
Bonjour à tous, Je cherche la façon d'inscrire le mot de passe via vba pour déprotéger une plage qui est vérouillé par le code suivant : Code: Feuil1.Protection.AllowEditRanges.Add Title:="Allo", Range:=Range("F4:Y739"), Password:="123" Ça srait ci simple si je pouvais l'écrire comme suit : Code: Feuil1.Protection.AllowEditRanges.Index(1) Password:="123" Mais ça ne fonctionne pas une miette Quelqu'un a une idée??? pour l'instant la seule façon que j'ai trouvé c'est en utilisant la fonction .delete... impliquant qu'il faudrait que je réajoute cette plage à chaque fois..
C Catrice XLDnaute Barbatruc 18 Juin 2009 #2 Re : Déprotéger AllowEditRanges Bonsoir, Le code ci-dessous a l'air de fontionner : Sub Test2() Feuil1.Protection.AllowEditRanges("Allo").Unprotect ("123") End Sub Vote positif 0 Vote négatif
Re : Déprotéger AllowEditRanges Bonsoir, Le code ci-dessous a l'air de fontionner : Sub Test2() Feuil1.Protection.AllowEditRanges("Allo").Unprotect ("123") End Sub
Gael XLDnaute Barbatruc 18 Juin 2009 #3 Re : Déprotéger AllowEditRanges Bonsoir Pacoako, bonsoir Catrice, Le code de Catrice fonctionne bien, tu peux aussi écrire: Code: Feuil1.Protection.AllowEditRanges(1).Unprotect "123" Par contre si tu veux reprotéger la plage, il faut oter la protection de la feuille puis la remettre. Le mot de passe de la plage est conservé. @+ Gael Vote positif 0 Vote négatif
Re : Déprotéger AllowEditRanges Bonsoir Pacoako, bonsoir Catrice, Le code de Catrice fonctionne bien, tu peux aussi écrire: Code: Feuil1.Protection.AllowEditRanges(1).Unprotect "123" Par contre si tu veux reprotéger la plage, il faut oter la protection de la feuille puis la remettre. Le mot de passe de la plage est conservé. @+ Gael
P pacoako XLDnaute Occasionnel 19 Juin 2009 #4 Re : Déprotéger AllowEditRanges Merci à tous!!!! ca marche! Vote positif 0 Vote négatif