Verrouillage graphique

Bonsoir,

Je souhaite protéger une feuille excel contenant des graphiques de toute modification, mais que pour autant les utilisateurs puissent copier coller (donc sélectionner) les graphiques dans word par exemple.

Lorsque je verrouille la zone de traçage et que je laisse la possibilité de sélectionner des cellules verrouillées au moment de la protection de la feuille, cela ne semble pas fonctionner.

Savez vous comment faire cela ?

Merci d'avance,

Jerry-fr

Bonsoir,

Dans l'idée :

1 feuille (onglet) avec les données - feuille protégée

1 feuille comportant le(s) graphiques - feuille(s) non protégée(s)

Cdlt.

Effectivement cela serait une solution, mais mon tableau contenant les données doit pouvoir être modifié. Le graphique doit être verrouillé pour que l'utilisateur ne puisse pas modifié le type de graphique, la mise en forme etc.

Jerry-fr

Bonjour,

Une proposition à adapter.

Cdlt.

Option Explicit
Private Sub cmdProteger_Click()
' la sélection du graphique est autorisée mais non visible.
' voir 'zone noms' dans la barre de formule de la feuille de calcul.
Dim ws As Worksheet
Dim objChart As ChartObject
    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    For Each objChart In ws.ChartObjects
        With objChart.Chart
            .ChartArea.Select
            .ProtectSelection = True
        End With
    Next objChart
    Set ws = Nothing
End Sub
Private Sub cmdDeproteger_Click()
Dim ws As Worksheet
Dim objChart As ChartObject
    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    For Each objChart In ws.ChartObjects
        With objChart.Chart
            .ProtectSelection = False
        End With
    Next objChart
    Set ws = Nothing
End Sub

Cela fonctionne parfaitement, merci beaucoup.

Jerry-fr

Bonjour,

Au moins 5 étoiles.

Sans ce bout de code, on pouvait supprimer la série (supprimer les données du graphique).

La 'protection' n'était pas complète.

.ChartArea.Select
Rechercher des sujets similaires à "verrouillage graphique"