XL 2010 Protection xlUnlockedCells et xlNoRestrictions

Roland_M

XLDnaute Barbatruc

• 23 Mars 2017

• #2

Bonjour à tous,

voir avec cette macro, pour essai tu tapes f5 dessus et tu vas voir si ok !?

Sub ProtegeCellFeuil() 'excepté le range !?
ActiveSheet.Unprotect 'déprotect la feuille
ActiveSheet.Cells.Locked = True 'toutes cells vérouillées
ActiveSheet.Range("D7:E36").Locked = False 'dévérouille ce range
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'proptect la feuille
End Sub

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 23 Mars 2017

• #3

Salut Roland,

Merci d'être encore là 😉

Je regarde et je reviens te dire.
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 23 Mars 2017

• #4

Re-Roland, le forum,

J'ai testé mais ce n'est pas tout à fait le résultat escompté.

Il faudrait que les cellules "D7:E36 " restent protégées mais en : "ActiveSheet.EnableSelection = xlNoRestrictions"

Mais comme je le dis dans mon premier post, je doute que ce soit possible.
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 23 Mars 2017

• #5

Bonjour,

Je commence par ce qui pourrait éventuellement fâcher, mais qui ne le doit pas car ce n'est qu'une simple constatation : c'est impressionnant comme tu arrives à être systématiquement incompréhensible, pour moi ! LOL

En suite, vu que je n'ai pas tout compris il y a de grandes chances que je réponde à côté, mais je tente tout de même une réponse, des fois que ça puisse peut-être tout de même t'aider un peu 😉 : ta macro "ProtegeUnlock" empêche de cliquer sur toutes les cellules, et ta macro "ProtegeNoRest" permet de cliquer sur toutes les cellules.
Pourquoi ne déprotèges-tu pas les cellules de la plage D7:E36 (ce qui me semble donner le même résultat que ta macro "ProtegeNoRest") ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 23 Mars 2017

• #6

Bonjour Marcel,

LOL, pas facile de se faire comprendre mais là, tu as tout compris 😉

Le fichier test n'est qu'un fichier exemple qui ne reflète que mon besoin.
Donc, j'ai juste besoin d'une éventuelle (et très sympathique réponse magique) à ma question LOL,

Je reprends j'espère plus clairement :
Question post 1 :
Est-il possible de protéger une feuille en "ActiveSheet.EnableSelection = xlUnlockedCells"
tout en gardant (dans le fichier test D7 à E36) un groupe de cellules protégées en "ActiveSheet.EnableSelection = xlNoRestrictions" ????

Ton interrogation :
Pourquoi ne déprotèges-tu pas les cellules de la plage D7:E36 (qui me semble donner le même résultat que ta macro "ProtegeNoRest") ?

Pour utilisation dans mon "gros" fichier de travail, les cellules D7 à E36 doivent rester protégées mais avec la possibilité de cliquer dessus (contrairement à toute la feuille).
C'est à partir du clic (sans modification possible) que s'exécutent des codes guidant la saisie.

J'espère que c'est compréhensible LOL

Merci Marcel d'être là.
Amicalement,
Lionel,

 

Dernière édition: 23 Mars 2017

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 23 Mars 2017

• #7

OK, donc en fait j'avais parfaitement bien tout compris cette fois-ci. 😉
Mais je n'ai pas de solution pour toi. Désolé. 🙁

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 23 Mars 2017

• #8

Merci Marcel d'avoir voulu encore m'aider 😉
Miracle, j'ai réussi à m'exprimer 😕

Comme je le dis, je pense qu'il n'y a pas de solution ..... mais qui sait avec les magiciens du forum 🙄
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 23 Mars 2017

• #9

Je peux te proposer une bidouille (voir fichier ci-joint), mais c'est sûr que c'est beaucoup moins propre que ce que tu voulais faire, et pas sûr ça corresponde exactement à ce que tu voudrais. 🙁

 

Pièces jointes

• Ma-bidouille-de-plages.xlsm

  19.9 KB · Affichages: 48

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 23 Mars 2017

• #10

Merci Marcel,
Je vais regarder et je te réponds.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 24 Mars 2017

• #11

Bonjour Marcel, le forum,

J'ai testé ce matin Marcel.
Comme tu le dis, ce n'est pas le code que j'espérais mais je pense toujours qu'il n'y a pas de solution "précise" à ma demande.

Ta macro fonctionne bien.

Le seul bémol :
Je vais l'intégrer à mon fichier et voir quelles sont les incidences sur les exécutions des macros quand on clique sur les autres cellules.

Un grand merci déjà Marcel,
Je te tiens au courant 😉
Amicalement,
Lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 24 Mars 2017

• #12

Re Marcel, à toutes et à tous,

J'ai tenté d'intégrer ta macro dans mon fichier de travail mais il y a trop d'implications avec d'autres codes qui s'exécutent quand on clique sur les cellules et c'est trop compliqué pour mes maigres connaissances de jongler avec vba.

Mais je garde ta macro qui pourra m'être utile pour un autre sujet 😉

Merci marcel.

Si quelqu'un a une solution, ce serait super pour moi.
Bonne journée à toutes et à tous,
Amicalement,
Lionel,

 

Dernière édition: 24 Mars 2017

Vote positif 0 Vote négatif