차트 코드를 어떻게 보호합니까?

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

차트가 워크 시트가 아닌 경우 차트를 보호 할 수 있다고 생각하지 않습니다. 워크 시트에 차트를 삽입하거나 보호되어 있기 때문에 워크 시트는

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

와

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

를 교체하거나 워크 시트