protect shape from editing

Question

I want to protect shape for my macro enable workbook

Answer 1

Hi,

try this code,

protect (from edit) only shapes in active sheet

Sub ProtectShapes_01()

With ActiveSheet

.Unprotect Password:="1230"

.Cells.Locked = False

End With

For Each s In ActiveSheet.Shapes

s.Locked = True

Next

ActiveSheet.Protect Password:="1230"

End Sub

XXXXXXXXXXXXXXX

also,

protect Shapes and specific cells

(in the sample below, protect 4 columns A:D)

Sub Protect_ShapesRange()

With ActiveSheet

.Unprotect Password:="1230"

.Cells.Locked = False

End With

For Each s In ActiveSheet.Shapes

s.Locked = True

Next

With ActiveSheet

.Range("A:D").Locked = True

.Protect Password:="1230"

End With

End Sub

Answer 2

when i try to print sheet then 'application defined or object defined error took place'

when the sheet is protected some cells are not protected in LC sheet, please reply.

Answer 3

It will not make any difference whether your sheet is macro enabled or not. It should work.

Answer 4

Thanks, but tell if it is helpful in macro enabled sheet Here the link-

http://sdrv.ms/LKuBil

Answer 5

Protect your sheet. It will protect objects/shapes also.

In case you don't want to protect cells, but only objects then select the whole sheet and go to format cells/protection/uncheck lock cells.

Then protect the sheet. Now it will allow entry in cells but protect the objects/shapes.

Hope it helps.