How to protect cell automatically

Hello,

I want to know how can i protect a cell automatically after entering data into it. For example if i write in A1 and jump onto A2 i shouldnt be able to write in A1 again.I want it to protect the cell instantly while entering the data! Let's c if someone can help out!

Cheers.

Originally Posted by Motilulla

Hello,

I want to know how can i protect a cell automatically after entering data into it. For example if i write in A1 and jump onto A2 i shouldnt be able to write in A1 again.I want it to protect the cell instantly while entering the data! Let's c if someone can help out!

Cheers.

Hi

First change the locked property of all the cells to unlocked. Easiest way is to jump into the VBE and using the Immediate window enter the following code.

Cells.Locked=False

Now in the Worksheet Change event of the sheet in question, enter the following code

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    ActiveSheet.Unprotect
    Target.Cells.Locked = True
    ActiveSheet.Protect
End Sub

Hi,
Thank you for your help. The second formula worked really well but i didnt understand the first one tho, in what way can i use it? I wanted to ask as well, if i can desprotect the cell with a password?

Thank you.

p.s: there's another thread i have posted with a different question, have a look at that one as well!. 'how to count delay of numbers'..

Originally Posted by Motilulla

Hi,
Thank you for your help. The second formula worked really well but i didnt understand the first one tho, in what way can i use it? I wanted to ask as well, if i can desprotect the cell with a password?

Thank you.

p.s: there's another thread i have posted with a different question, have a look at that one as well!. 'how to count delay of numbers'..

Hi,

The first bit of code needs to be run in the Immediate Window. It's not usually visible by default when you jump into the VBE, so just choose 'View' Immediate Window' from the VBE menu.

You could also put it in a Sub..End Sub procedure and run it as a macro.

As to the cell question, you can't protect a cell with a password, only a worksheet or a workbook.

I'll take a look at your other post.

Regards

Hi,

Thank you very much once again! Now i do get it..

cheers