Single time data entry in cell

[Chiragpatel]

Hello everyone, I want to know that in Ms-excel, how to enable cell to make a single time data entry. That is once you enter data in a cell, afterwards you cannot change without password.

 

[Datsmart]

This earlier post has sample code to do what you are asking.
http://www.mrexcel.com/board2/viewtopic.php?t=256639

 

[Chiragpatel]

Hello Datsmart, I want to know that how only one time data is entered in cell and after that data cannot be changed until password of protection is not given. I received tips but it works only with one cell. I want to make one time data entry in multiple cells i.e ranges.

 

[Datsmart]

What code did you try?

The code in the suggested post "locks" the cell after it is changed. After that you can not even select it again.
Post the code you try and explain how it is not doing what you want and I will see if I can help with a solution.

 

[Chiragpatel]

Hello Datsmart,
I tried the following code. It protects the whole sheet after entering the data in one cell. I want in multiple or range of cells.

Private Sub Worksheet_Change(ByVal Target As Range)

'unprotect the sheet
ActiveSheet.Unprotect

'change the cell(s) that were changed to 'Locked'
Target.Locked = True

'protect the sheet
ActiveSheet.Protect

End Sub

 

[Datsmart]

Did you Un-Lock all worksheet cells first like Kristy mentioned in the thread I posted above?

Here is another older thread on the subject.
http://www.mrexcel.com/forum/showthread.php?t=213186
It allows you to input Ranges you want to protect.

If you do not want the user to be able to select the previously edited cell, add the following line of code after you protect the sheet.

    ActiveSheet.EnableSelection = xlUnlockedCells

 

[Chiragpatel]

Hello Datsmart,
Thank your for your suggestions. But I am very confused. I applied both code which you sent me earlier to refer with. One thing I want to tell you is that I have not much knowledge of Visual basic. I just know to open with Alt+F11, paste the codes and save with Alt+Q. That's it. If you explain me the whole method step by step I would be very much thankful to you.
For your information My quote is once if I enter data in a cell, second time no one can change that data without password.

Thanks for help me...