Protection et plan sur plusieurs feuilles

KImi9664 · 26 Janvier 2009

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 · 26 Janvier 2009

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 · 27 Janvier 2009

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 · 27 Janvier 2009

Re : Protection et plan sur plusieurs feuilles

Bonsoir Kimi, Roland

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

Code:

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 · 29 Janvier 2009

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

Protection et plan sur plusieurs feuilles

KImi9664

XLDnaute Nouveau

Roland_M

XLDnaute Barbatruc

KImi9664

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

KImi9664

XLDnaute Nouveau

Discussions similaires