How do I lock cells when it has value using macro?

Guys,

Can someone help me with protect macro, I've never use this before.

I just need to lock cells once it has a value. This needs to make the data accurate. It can only be unlock using a password.

Anyone?

Here's my best shot at this

Open VBA. Editor
doubble click sheet1.
Copy and Paste code below into sheet1.

The below code must be located in sheet1 or you will have to change the sheet index value to match your sheet.

Please Login or Register  to view this content.

How it works.
1. Only blank cells can be changed
2. Once a blank cell has data entered, it cannot be changed again (only one chance to enter data )
3. Sheet can only be unlocked with a password.

Note that the password in my code is "Secret", you can change this to anything you wish but the password will be visible to anyone who knows how to use VBA. I'm not if and how that can be hidden.

Cheers
Schwizer

It's not working...

Originally Posted by Schwizer

Here's my best shot at this

Open VBA. Editor
doubble click sheet1.
Copy and Paste code below into sheet1.

The below code must be located in sheet1 or you will have to change the sheet index value to match your sheet.

Please Login or Register  to view this content.

How it works.
1. Only blank cells can be changed
2. Once a blank cell has data entered, it cannot be changed again (only one chance to enter data )
3. Sheet can only be unlocked with a password.

Note that the password in my code is "Secret", you can change this to anything you wish but the password will be visible to anyone who knows how to use VBA. I'm not if and how that can be hidden.

Cheers
Schwizer

Sry to leave u hanging there,

Try this attached worksheet if you're still having issues. (use sheet1)

Cheers
Schwizer

The code presented on the posts has a few lines missing.Other than that i works like a charm.Thank you.