Loading (Showing) Chart error

[jim may]

When I get to line "co Activate" - I get RT Error '-214702... - (80070057)
Requested Shapes are locked for selection. How do I Correct this?

Sub BringUpChart()
Dim co As ChartObject
Dim ch As Chart
Set co = ActiveSheet.ChartObjects("MyChart")
'Set ch = co.Chart
    CRow = ActiveCell.Row
    Set CRange = Application.Union(Range("B" & CRow), Range("C" & CRow), Range("M" & CRow))
    co.Activate
    co.SetSourceData Source:=CRange, PlotBy:=xlRows
End Sub

 

[Damon Ostrander]

Hi Jim,

I'm guessing the chart is locked and the sheet is protected, which disallows activating the chart. If this is the case, you have two options:

1. Unlock the chart. This will mean the chart can be edited even though the sheet is protected. To unlock the chart, first unprotect the sheet, then select the chart using Ctrl-left click. Now that it is selected you can right-click on it, then select Format Object, then the Protection tab. Uncheck the Locked checkbox. Then you can re-protect the sheet.

2. Have your code modify the chart without selecting or activating it. I believe you can simply eliminate the co.Activate line. If it still won't allow your code to modify the chart, then add code to unprotect and reprotect the chart:

Activesheet.UnProtect "mypassword"
    co.SetSourceData Source:=CRange, PlotBy:=xlRows
Activesheet.Protect "mypassword"

You can then protect your VBAProject (your code) so that nobody can look at it to see your password by protecting it. To do this, in the VBE select Tools > VBAProject Properties > Protection tab and assign a password to the project.

Damon