Excel VisualBasic Script

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