Protect Chart : Chart Protect « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Chart Protect

Protect Chart

 
Sub ProtectChart()
    Dim myChart As Chart
    Set myChart = ThisWorkbook.Sheets("Protected Chart")
    myChart.Protect "Excel2003", True, True, , True
    myChart.ProtectData = False
    myChart.ProtectGoalSeek = True
    myChart.ProtectSelection = True
    Debug.Print myChart.ProtectContents
    Debug.Print myChart.ProtectDrawingObjects
    Debug.Print myChart.ProtectionMode
    Debug.Print myChart.ProtectData
    Debug.Print myChart.ProtectGoalSeek
    Debug.Print myChart.ProtectSelection
End Sub

 

Related examples in the same category