VBA - passw protect multiple sheets with select unlocked cells on every sheet

Hi,

New member as of today! And this is my first post...probably not my last.

I have a workbook with 12 sheets that I would like to password protect using a button.
I found this VBA script online and protects all my sheets but all cells are unselectable.
On all sheets, I have to be able to select unlocked cells. I've added "s.EnableSelection = xlUnlockedCells" myself in the script but without success.
I've searched online and in this form but couldn't find a solution.

What do I need change in the script?

Please Login or Register  to view this content.

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #2 requires code tags. I have added them for you this time because you are a new member. You should also indent your code to show control structure. --6StringJazzer[/COLOR]

Hi,

Thanks for the reply!. Your code works but just one thing is strange. After I run the protectAll code, the frame that shows the active cell, is visible on every sheet but the worksheet that was active during the run. Even after clicking several times in the active worksheet. If I go to one of the other worksheets and than return to the original active worksheet, the frame is back.