チャートコードを保護するにはどうすればよいですか？

Question

私は、チャートが書き込まれた後に変更されないようにしようとしています。私はMyChart.Protectライン上のエラーを取得します

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 

：私はこれを行う必要があるウェブからコードを集めてきました。私はそれを働かせることができません。

Answer 1

ワークシートでない限り、グラフを保護することはできません。あなたはワークシートにグラフを挿入する、のいずれかのワークシートを保護しているので、ワークシート