[Excel VBA] protéger des cellule en maintenant l'accès au plan
Le
AGLAS
Bonjour à tous,
Nouvelle question tordue : je gère un ensemble de ligne sous form
d'arborescence (via l'option Données/Grouper et créer un plan) e
dois protéger certaines cellules contenant des formules contre d
potentielles modifications, seulement le pb c'est que la protection e
question empêche du même coup toute action sur le plan ; autrement dit
il n'est alors plus possible de développer l'arborescence (+) ou de l
réduire (-) et d'accéder au niveau de détail souhaité. Je trouve cel
très frustrant et m'étonne que cela n'est pas été prévu. Mais peut-êtr
que cette fois-ci (cf. mon précédent sujet resté lettre morte), l'u
d'entre vous aura une idée lumineuse me permettant de contourner l
pb..
--
AGLA
--
AGLAS's Profile: http://www.msusenet.com/member.php?userid8
View this thread: http://www.msusenet.com/t-187045633
Nouvelle question tordue : je gère un ensemble de ligne sous form
d'arborescence (via l'option Données/Grouper et créer un plan) e
dois protéger certaines cellules contenant des formules contre d
potentielles modifications, seulement le pb c'est que la protection e
question empêche du même coup toute action sur le plan ; autrement dit
il n'est alors plus possible de développer l'arborescence (+) ou de l
réduire (-) et d'accéder au niveau de détail souhaité. Je trouve cel
très frustrant et m'étonne que cela n'est pas été prévu. Mais peut-êtr
que cette fois-ci (cf. mon précédent sujet resté lettre morte), l'u
d'entre vous aura une idée lumineuse me permettant de contourner l
pb..
--
AGLA
--
AGLAS's Profile: http://www.msusenet.com/member.php?userid8
View this thread: http://www.msusenet.com/t-187045633
Poser une question
Dans le module de ThisWorkbook et pour la feuille "Feuil1"' :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.EnableOutlining = True
.Protect Contents:=True, UserInterfaceOnly:=True
End with
End Sub
AV
le deuil de toute solution à cette question et là-dessus, AV arrive
en toute simplicité, armé de sa baguette magique, sort de son chapea
une formule de 3 lignes et change le cours de l'histoire (de mon appl
du moins) ; comme quoi tout se joue finalement dans un mouchoir d
papier ; sais-tu AV que j'ai écumé les forums Excel avec ma litani
plaintive pendant presque 100 ans ? (Non je ne suis pas Marseillai
..) Que même les ouvrages spécialisés -ceux auxquels j'ai eu accès e
tout cas-, comme le guide du développeur Excel 2002 et VBA de M
n'apportent aucune piste valable sur le sujet ? Pour tout dire, a
hasard de ma navigation je suis tombé sur cette même question posée e
2003 sur un autre forum par un gars complètement désabusé et qui a reç
.. 0 réponse. Non là AV tu épates le nez. Merci mille fois, AV César
--
AGLA
-----------------------------------------------------------------------
AGLAS's Profile: http://www.msusenet.com/member.php?userid8
View this thread: http://www.msusenet.com/t-187045633
C'est une question/réponse récurrente mais il faut fréquenter les bons
lieux....! ;-)
AV
arrive à tout le monde !
Private Sub Workbook_Open()
With Sheets("Feuil1")
Sheets("Feuil1").Protect Contents:=True, UserInterfaceOnly:=True
Sheets("Feuil1").EnableOutlining = True
End With
End Sub
Il fallait écrire Sheets("Feuil1").EnableOutlining = True après les
opérations de protection de Feuil1.
J'espère que cela aidera des utilisateurs excel.
Bonne journée à tous
Moi je veux bien mais j'ai beau scruter, je vois pas à quoi tu fais allusion !
Ca n'a strictement aucune importance !
Par contre lorsque tu publies :
On peut se poser des questions sur l'utilité de la présence de l'instruction
"With" ...;-)
En résumé, il me semble que le code publié le 28/05/05 09:34 n'appelle pas de
commentaires particuliers
AV