VBA protect qui protege trop

Bonjour,

j'ai créer une feuille template avec des champs calculés que j'ai protégés;
ce template est masqué et je le duplique grâce à un bouton.

pour pouvoir la dupliquer j'ai besoin de la déproteger puis de la re-proteger.
Idem pour la feuille créer que je reprotége.

sous excell 2003, toute les cellules verrouillées sont protégés et les cellules non verrouillées sont accessible.

Par contre sous excell 2002, la feuille complete est inaccessible.
En faisant la manip manuellement je me suis rendu compte que les 2 options:
>> sélectionner les cellules verrouillées << & >> sélectionner les cellules déverrouillées << ne sont pas cochés par défaut.

Comment les cochés via vba ?

pour info ma macro est activesheet.protect contents=true...

bonjour,

pour cocher l'ensemble des cellules sur une feuille en position verouillée :

Code:

---

sheets(x).cells.locked=true

---

bein non justement les utilisateurs doivent pouvoir saisir des données dans les cellules non verrouillées :cry:

si les cellules sont tjs les même tu peux imaginer faire un tuc dans le genre

Code:

---

1 2 3

cells.locked=true Range("G19,H24,K24,K20,O13,P20:P21,P24,N27,K32:S41").locked=false

---

j'ai du mal à comprendre, dans ma feuille j'ai déjà indiqué les cellules qui doivent être verrouillées et celles qui ne doivent pas l'être.
il n'y pas moyen avec la fonction protect de lui dire de protéger que les cellules verrouillées et pas de tout me protéger ?

En plus j'ai peur que le locked reviennent à la même chose non ?

"locked" verrouilera ou non les cellules..... suivant que la feuille soit protégée ou non.

Citation:

---

Envoyé par mayekeul

.... suivant que la feuille soit protégée ou non.

---

le problème est la justement, du moment que je protège la feuille, toutes les cellules sont inaccessibles qu'elles soient lockés ou non !!!!

on pourrais voir à quoi ressemble le code?

:)

voila le code:

Code:

---

1 2 3 4 5 6 7 8 9 10

Name = "0" & Sheets.Count - 2 Sheets("template").Visible = True Sheets("template").Select Sheets("template").Copy after:=Sheets("recap OD") Sheets("template (2)").Select Sheets("template (2)").Name = Name Sheets("template").Visible = False   Sheets(Name).Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

---

et tu es certain que les cellules sur la feuille "template" sont verouillées??

certaines le sont (champs calculés), d'autres non pour que l'utilisateur saisisse des données.
Le problème, c'est qu'aucune cellules n'est accessible même celles qui ne sont pas verrouillées.
Résultat ils déprotègent et mettent le boxon :(

la macro fonctionne parfaitement chez moi excell 2003 mais sous excell 2002, la fenetre pour proteger à plus d'option donc aucune n'est coché et c'est la qu'il y a problème.

Bonjour,

Dans le code que tu as fournis, seule la feuille à l'indice Name (valeur contenue dans cette variable) est protégée. Sinon je te conseil d'utiliser l'enregistreur de macro et de protéger ta feuille avec les options que tu souhaite.
Ensuite tu copie uniquement le code de protection avec les options.
Moi j'ai sélectionner uniquement les deux premières options et tous les utilisateurs ont accès seulement à la plage de cellules déverrouiller. Dans les cellules vérrouillées, j'ai des formules à ne pas modifier. Par ailleurs j'ai aussi enlever l'accès à toutes modifications des cellules (Suppression, effecer le contenue, accès au menu Edition,...).

Citation:

---

Envoyé par JeanSairien

...Sinon je te conseil d'utiliser l'enregistreur de macro et de protéger ta feuille avec les options que tu souhaite.
Ensuite tu copie uniquement le code de protection avec les options.

---

ça été ma méthode pour construire la macro et j'ai refait le test que ce soit chez moi ou sur le lieu d'utilisation, le code généré est le même et le dysfonctionnement aussi.

ça sent le bug sur les install :cry:

sous 2002 la fenetre de protection à des options supplémentaires et c'est les 2 premières qui posent probléme:
>> sélectionner les cellules verrouillées <<
>> sélectionner les cellules déverrouillées <<

sans macro j'ai protégé une feuille en cochant ces options, ça marche, je décoche ces options, plus accés à rien.

J'ai oublié de te signaler mais si tu veux rentrer dans tes cellules déverrouillées une fois la feuille protéger, il faut que mette en amont de ton code, cancel=true puis cancel=false une fois la modification apporté sur ta cellule.

Je ne suis pas sur du sens true puis false, test et dit si ça peut être ça.

j'ai du mal a comprendre, tu veut que je rajoute cancel=true/cancel=false dans mon code au debut et à la fin
mais mon code me permet juste de créer par copie une nouvelle feuille. il a pas d'impact ensuite si je modifie la valeur d'une cellule dans la feuille généré.

essaye ça

Code:

---

1 2	ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.EnableSelection = xlNoRestrictions

---

lien vers microsoft

effectivement ça résoudrait bien mon problème :)
je vous tient au courant.

ça marche parfaitement merci.