Lock Cells After Editing

[dragonmouse]

I have a spreadsheet in which I'm gathering information from multiple people. I've LOCKED some cells that I don't want people to change and I've enabled the ability for MULTIPLE users to edit the sheet at the same time. Once a user inputs information I'd like to be able to LOCK the cell so that no one can change or delete the information edited by mistake. I'm just not getting it. Any ideas. I'm sure its a simple click somewhere that I'm missing.

 

[mumps]

Unlock all the cells in which you want to input data and then protect the sheet. Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. when you enter data in any cell in the sheet and exit the cell, that cell will b3 locked.

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

 

[dragonmouse]

Cool. That works. Thanks

 

[mumps]

My pleasure.