VBA/Excel/Access/Word/Excel/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

Unprotect Chart

 
Sub UnprotectChart()
    Dim myChart As Chart
    Set myChart = ThisWorkbook.Sheets("Protected Chart")
    myChart.Unprotect "Excel2003"
    myChart.ProtectData = False
    myChart.ProtectGoalSeek = False
    myChart.ProtectSelection = False
End Sub