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