how to create unprotect shape

[9599lorenzo]

Dear all,

i have my workbook protected from editing.

i need to create a shape with the below macro but i should instruct vba to create it as unlocked shape.
this wll leave to the user the possibility to move it within the activesheet.
can someone help?

tks

Please Login or Register  to view this content.

[shg]

Please Login or Register  to view this content.

[9599lorenzo]

dear shg

tks but unfortunately still not working...

[shg]

What does that mean?

[9599lorenzo]

Hi,
When sheet is unprotected I can under the shape.
As soon as I protect the sheet and then try to insert the shape I have a debug here:

With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100, 100, H, b)
.Locked = False

[shg]

You have to unprotect the sheet, then insert the shape.

Please Login or Register  to view this content.

[9599lorenzo]

That is my problem , I need to keep everything protected except the shape that the user need to use..

[shg]

That's what the .Locked = False line is for.

[9599lorenzo]

Ok i have tried that but still get the error ....do you think any other possibility ?

[shg]

What error?

[9599lorenzo]

Error I meant debug ....I have try your code but I have same debug on that line I mentioned before unfortunately

[shg]

Please post the exact code you're using, and say what line generates the error, and what the error message is.

[9599lorenzo]

hi,
here the code, in red the line where i get the error :

Please Login or Register  to view this content.

the sistem says :

run time error 1004
the specified value is out of range

[shg]

You have to unprotect the sheet at the top of the code, and then reprotect it at the bottom of the code, as shown in post #6.

[9599lorenzo]

great.....thanks so much now works perfectly.

many tks
brgds
Lorenzo

[shg]

You're welcome.