How to Unprotect and protect cells in a script

I have a script for recording passwords. It has a cell where the user enters a code (cell C3) and the script returns (displays) the password in the adjacent cell (D3). The script also allows a user to click a button to generate a new code for a new password. The new code is displayed in cell C4. To make this script work and keep me from mistakenly changing other fields, I have locked the previous 3 cells (C3, D3 and D4 as well as the password and password code cells (G2:F5000). I then Protect the sheet.

What I would like to do is to lock JUST C3 to allow a user to enter a code. I thought I could do this with the ActiveSheet.Protect command but I can't seem to get it to work. Here is the code, with my attempt commented out:

Please Login or Register  to view this content.

Any help would be appreciated.

I'm a little confused about the sequence that you follow here.

What I would like to do is to lock JUST C3 to allow a user to enter a code.

How can the user enter a code in C3 if you lock it? It seems to me that you need to leave C3 and C4 unlocked for the user to do anything.

Why does this code need to lock C3:G10000 every time it's called? You can do that one time in sheet setup and it won't change.

If I were doing this here is what I think I would want. First, go to the sheet and lock C3:G10000. Every cell is locked by default anyway so you shouldn't have to do anything. Then unlock C3 and C4 to allow user input. Then the code manages it from there.

Also you do not need to reference ActiveSheet in a sheet event handler. I would do this:

Please Login or Register  to view this content.