Unlocking a chart/graph

[vuffe]

Hi guys

After searching an hour for the correct code. I am creating a new shape with this code:


Sheets("processtyring").Unprotect Password:="HKV"

ActiveSheet.Shapes.AddChart(xlBarStacked, 150, 150, 1000, 250).Select

Sheets("processtyring").Protect Password:="HKV"


Now i want to mimic the proces of selecting this newly created chart and unlocking it, so users are able to select and edit it, but only parts of the rest of the sheet, which is why it is beeing protected at the end.

I have other shapes/buttons, so it must be only this newly created shape that is getting unlocked. Recording a macro i cant seem to figure out the code.

 

[oldbrewer]

the shape will have a number eg shape(3) - does that help ?

 

[oldbrewer]

I made a sheet with a rectangle and an oval, and selected the oval with

ActiveSheet.Shapes("Oval 2").Select

 

[vuffe]

It will have a +1 higher number every time i create the chart so the code must be dynamic. I just want to unlock it so it is editable when i protect the sheet in the end

 

[oldbrewer]

say you have 20 charts, make A1 = 20, make a new chart, change A1 to 21

then ActiveSheet.Shapes("cells(1,1)").select maybe (not tested)

 

[Stiuart_W]

As far as I know you cannot lock/unlock or otherwise individually protect Objects. You can protect a Worksheet and make sure Objects are locked but when you un-protect ALL objects will be available.

If you only have one drawing object on a worksheet then un-protecting the worksheet will have the effect you want otherwise you will need to find another way to achieve what you want.

 

[vuffe]

But it is possible to manually unlock an object thought properties, and once it is unlocked, i can still select it when I protect the workbook. Thats exactly what i want to do in vba.

 

[vuffe]

Found the solution:

Activechart.Parent.Locked = msoFalse

Thanks for the responses and interest