Как защитить код диаграммы?

Question

Я пытаюсь изменить график после его написания. Я собрал код из Интернета, который должен сделать это:

Sub test() 
Dim myChartObject As ChartObject 
Dim MyChart As Chart 

Set myChartObject = ActiveSheet.ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300) 

Set MyChart = myChartObject.Chart 

MyChart.PlotArea.Width = Application.InchesToPoints(2.583) 
MyChart.PlotArea.Height = Application.InchesToPoints(1.75) 

MyChart.ChartType = xlLine 

MyChart.SetSourceData Source:=ActiveWorkbook.ActiveSheet.Range("A5:D9") 
MyChart.Protect Password:="pass", DrawingObjects:=True, Contents:=True 

End Sub 

Я получаю сообщение об ошибке на MyChart.Protect линии. Я не могу заставить его работать.

Answer 1

Я не верю, что вы можете защитить график, если это не рабочий лист. Так как вы вставляете диаграмму в рабочий лист, либо защитить рабочий лист заменить

MyChart.Protect Password:="pass", DrawingObjects:=True, Contents:=True 

с

ActiveSheet.Protect Password:="pass", DrawingObjects:=True, Contents:=True 

или вставить диаграмму в рабочий лист