How about:

Worksheet("MySheet").ChartObjects("MyChart").Chart .Protect
DrawingObjects:=True, Contents:=True


--
* Please click Yes if this was helpful *
Andy Smith
Senior Systems Analyst
Standard & Poor''s, NYC



"Kevin" wrote:

How do I completely lock down a chart embedded in a worksheet (not a chart
sheet) in VBA to prevent changed through the UI? I have tried:

Worksheet("MySheet").ChartObjects("MyChart").Chart .Protect
Worksheet("MySheet").ChartObjects("MyChart").Prote ctChartObject = True
Worksheet("MySheet").ChartObjects("MyChart").Enabl ed = False
Worksheet("MySheet").ChartObjects("MyChart").Locke d = True

I, of course, protected the worksheet itself also:

Sheets("MySheet").Protect Password:="SecretWord", DrawingObjects:=True,
Contents:=True, Scenarios:=True

None of these steps seem to prevent me making changes to the format of the
data series and legend. How do I lock down all of these items?

Thanks,

Kevin