[Excel VBA] protéger des cellule en maintenant l'accès au plan

Si, si c'est prévu :
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

Alors là ! Alooooors là ! Trooooop fort ! J'étais sur le point de fair
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

......je suis tombé sur cette même question posée en 2003 sur un autre forum
par un gars complètement désabusé et qui a reçu

.. 0 réponse.

C'est une question/réponse récurrente mais il faut fréquenter les bons
lieux....! ;-)

AV

Je corrige AV césar pour la petite erreur de code VBA. Une petite erreur ça
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

Bonjour à tous,

Nouvelle question tordue : je gère un ensemble de ligne sous forme
d'arborescence (via l'option Données/Grouper et créer un plan...) et
dois protéger certaines cellules contenant des formules contre de
potentielles modifications, seulement le pb c'est que la protection en
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 la
réduire (-) et d'accéder au niveau de détail souhaité. Je trouve cela
très frustrant et m'étonne que cela n'est pas été prévu. Mais peut-être
que cette fois-ci (cf. mon précédent sujet resté lettre morte), l'un
d'entre vous aura une idée lumineuse me permettant de contourner le
pb...


--
AGLAS
------------------------------------------------------------------------
AGLAS's Profile: http://www.msusenet.com/member.php?userid80
View this thread: http://www.msusenet.com/t-1870456335

Je corrige AV césar pour la petite erreur de code VBA.

Moi je veux bien mais j'ai beau scruter, je vois pas à quoi tu fais allusion !

Il fallait écrire Sheets("Feuil1").EnableOutlining = True après les
opérations de protection de Feuil1.

Ca n'a strictement aucune importance !

Par contre lorsque tu publies :

Private Sub Workbook_Open()
With Sheets("Feuil1")
Sheets("Feuil1").Protect Contents:=True, UserInterfaceOnly:=True
...blabla...

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