Como desproteger solo una gráfica en excel creada en vba.

Tengo el siguiente código

Sub Button1_Click()
Application.ScreenUpdating = False
ActiveSheet.Unprotect "123"
Set Activa = ActiveCell
Range("A" & Rows.Count).Select
If ActiveSheet.ChartObjects.Count > 0 Then ActiveSheet.ChartObjects.Delete
 ActiveSheet.Shapes.AddChart.Select
 ActiveChart.SetSourceData Source:=Range("Instructor_1")
 ActiveChart.ApplyChartTemplate (ThisWorkbook.Path & "\Grafica Instructor.crtx")
 ActiveSheet.ChartObjects(1).Activate
 ActiveSheet.ChartObjects(1).Name = "Instructor1"
 ActiveChart.ChartTitle.Text = ActiveSheet.Range("L17")
 ActiveChart.SeriesCollection(2).Name = "Calificación Mínima 0"
 ActiveChart.SeriesCollection(3).Name = "Calificación Máxima 5"
ActiveChart.ChartArea.Select
Set zona = Range("H4:M16")
With ActiveSheet.ChartObjects
 .Top = zona.Top
 .Left = zona.Left
 .Width = zona.Width
 .Height = zona.Height
 End With
 Activa.Select
ActiveSheet.Protect 

y lo que quiero es que se proteja la hoja , pero al crearse la gráfica se queda fija y no se puede borrar por que las celdas de donde toma los datos esta bloqueadas.