Lock range of cells using VBA

I need help in this please.

I have a sheet (sheet1) with a checkbox control that when it is checked unlook a range of cells in a different sheet (sheet2) and when I run this by checking the box I got a runtime error 1004: unable to set the locked property of the range class. The cells in the range in sheet 2 are protected and by checking the checkbox will be unprotected. Here is what I have:

Please Login or Register  to view this content.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

On this occasion I will change it for you but please remember in future.

Try unprotecting the worksheet first with

Please Login or Register  to view this content.

and at the end of your macro switch sheet protection back on with Sheet2.Protect. I have assumed that sheet codename 'Sheet2' is the same as your tab name 'Sheet2'.

You should get into the habit of using sheet code names rather than tab names which users may change. If they do your macro will not run.

Regards

Thank you very much, that works beautiful.