Protection et plan sur plusieurs feuilles

[KImi9664]

Bonjour, je possède un classeur sous excel 2007 où deux des feuilles comportent des plans pour le groupage. Le problème se pose quand je veux protéger ces deux feuilles, j'y arrive pour une avec ce macro :

Private Sub Workbook_Open()
Sheets("Cultures").EnableOutlining = True
Sheets("Cultures").Protect Password:="", userInterfaceOnly:=True
End Sub

comment faire pour protéger aussi, sans empecher le plan, la feuille "Cultures" et "Cultures (2)"???

merci d'avance

 

[Roland_M]

Re : Protection et plan sur plusieurs feuilles

bonsoir

sélectionner le graph avec 'ctrl+clic gauche'
puis dessus clic droit
dans le menu contextuel cliquer sur "mettre en forme l'objet"
dans l'onglet protection décocher "verrouillé"
puis protéger la feuille

en code vb ça donne ceci avec avec l'enregistreur de macro
---
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
ActiveSheet.Shapes("Chart 1").Select
Selection.Locked = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
---

 

[KImi9664]

Re : Protection et plan sur plusieurs feuilles

merci de ta réponse mais cela ne répond pas du tout à ma question sur les plans qui se bloquent... et je n'ai pas de graphique donc désolé mais ta réponse ne me sert pas trop...

 

[Pierrot93]

Re : Protection et plan sur plusieurs feuilles

Bonsoir Kimi, Roland

si les 2 feuilles sont présentes lors de l'ouverture :

Option Explicit
Private Sub Workbook_Open()
With Sheets("Cultures")
    .EnableOutlining = True
    .Protect Password:="", userInterfaceOnly:=True
End With
With Sheets("Cultures(2)")
    .EnableOutlining = True
    .Protect Password:="", userInterfaceOnly:=True
End With
End Sub

sinon exécuter le 2ème bloc "with" après création de la 2ème feuille...

je pense que ce code est compatible 2007... A vérifier.

bonne soirée
@+

 

[KImi9664]

Re : Protection et plan sur plusieurs feuilles

Merci de vos réponses. J'ai trouvé une autre solution, au lieu de mettre le code dans Workbook, je l'ai mis dans les feuilles.

Merci quand meme