Problem with cell locking VBA code

Hiya

I've been playing around with a few bits of code, but am not that experianced in the art of VBA coding, but ill give everything a try.

Having problems with the code listed below.

The major bits of it work, but the three lines marked with " **->", i cant seemt o get to work, as i dont know what the protocol is.

The code is suppose to lock the cells in all worksheets within a workbook, which works great, but there are two columns on seprate worksheets in the work book that i want to keep the cells unlocked and also a sheet that needs to be hidden.

Please Login or Register  to view this content.

As an after point, what i would like is to have an option window that appears before the worksheet is locked down so the user can select which worksheets to hide..

G

Oh and thanks to every one that has helped me so far, I cannot take any credit to the code above as its a mixture of many talents from this forum

Cheers guys and Girls

At a first glance

It appears you have not copied your code correctly, or you have only posted
part of your sub.

Try using

Please Login or Register  to view this content.

With without End With

Please Login or Register  to view this content.

and

Please Login or Register  to view this content.

Remember Locked will have no effect unless you Protect the sheet

Use the Debug>Compile VBA project to show any compile errors
and

Please Login or Register  to view this content.

To avoid other errors

Have a look again at Post #3 our posts crossed while I was editing

Did not notice this one

Please Login or Register  to view this content.

spelling - visable should be visible

Posts Crossing again! See Post #4. Also seePost#2 again it is now updated to avoid clutter

Ok, i had noticed that one as well, cant spell lol

That work which is great, but now has stopped at teh following lines

Please Login or Register  to view this content.

Coming up with unable to lock the property

Have tried many combinations, but still coming up with error

Have i missed something or written it down wrong?

G

Going back to my original code I have noticed that when i protect the worksheet it asks for a password which i set up, but after i use the lock code, when i go to unprotect, it does not ask for password to unprotect the sheet ??

Forget this post, I missed out the password to re protect the sheet...

Okay I should have had a closer look at your code earlier

You have used unprotect/protect but in that loop it will not work it is not sheet specific.
Give me 10minutes or so and I will rewrite the whole lot and then edit this post by adding the revised code

EDITED Promised revised code

Please Login or Register  to view this content.

1/. I have used for example Worksheets("Sheet1") ... etc - change each to suit your sheet names

2/.also
Password:="" Change this to your Password eg Password:="YourPassword"
Both protect and unprotect passwords must match exactly
The usual password rules case sensitive, illegal characters etc apply

Try this and let me know how you get on