Protection

[TonyforVBA]

Hey folks,
I've useing the below code to protect my worksheets.
HOwever, its not working exactly as I would like.
As it is, it is still possible to delete content from protected cells.

Can anyone advise what change I need to make?

Please Login or Register  to view this content.

[TonyforVBA]

Just to be more specific.
I need it so the cells can be selected and the contents can be copied, but it is not possible to delete or edit the content.

Thanks

[TonyforVBA]

Can anybody offer any advice on this?

[shg]

Please Login or Register  to view this content.

From the comment, locked should be set True

[TonyforVBA]

Hey shg,
Thanks for advice. Unfortunately, if I set the range to 'Locked = True', this means that I cannot select or copy the information from these cells, which is the problem Im facing.

[romperstomper]

What is x2NoSelection? I think you meant xlNoSelection (note that's an L not a 1)

Also, are you getting an error message? If you have no blank cells in the the usedrange intersecting your range that you try to do SpecialCells on, you'll get an error and your error handler will come up with an incorrect message.

[TonyforVBA]

The range I am trying this on is below. There are empty cells within this range and yes, its my Error handeler that is cropping up on me.

Please Login or Register  to view this content.

[romperstomper]

I suggest you change the error message to

Please Login or Register  to view this content.

temporarily so that you can determine the real error.

[TonyforVBA]

Ok, When attempting to make the below change.

Please Login or Register  to view this content.

I get the error message.
'Unable to set ClearContents property of the range class'

Maybe Im doing somthing completely stupid here, but Im just trying to figure a way so that the cells in that range can be selected and copied but not edited or deleted.

[romperstomper]

ClearContents is not a property:

Please Login or Register  to view this content.

[TonyforVBA]

Ah I see, thanks.

I've just been looking through the help files trying to figure this out and I just taught Id try that.

Would you have any suggestions as to a solution?