Auto locking cells

I have created a shared workbook to update certain entries by my colleagues. I have noticed that some of the entries were deleted after some time. I want to know if I can share the work with the following feature:-

As soon as somebody enters data to a cell, it should be automatically locked and should not allow anyone to delete or edit the cell.

How do I do it? Please help me. Thanks in advance.

You can't use sheet protection when the file is in shared mode

Again, protecting the cell content can't be done without using the sheet protection

Originally Posted by mifzal.mufthi

READ MY ENGLISH. I know how to protect worksheet. I am expecting a solution to my question

IS THIS IN ENGLISH??? And as you expect a solution to your question and we MUST(we had to.) give a solution...

http://chandoo.org/forums/topic/lock...-entry-in-cell

Originally Posted by mifzal.mufthi

READ MY ENGLISH. I know how to protect worksheet. I am expecting a solution to my question

if you formulate your request, more politely, be sure that you'll find your solution..

perhaps you could read your own statement

I know that protection cannot be enabled while on sharing mode.

but then

how do I protect cells as soon as I enter a data?

the answer is clear as you have already outlined-do not use sharing mode. if you must use sharing mode you cannot change the protection of cells

right click the worksheet tab choose view code then paste in this code

Private Sub Worksheet_Change(ByVal Target As Range)
    Const csPASSWORD As String = "your password here"
    Dim rCell As Range
    Me.Unprotect Password:=csPASSWORD
    For Each rCell In Target.Cells
        If Len(rCell.Formula) > 0 Then rCell.Locked = True
    Next rCell
    Me.Protect Password:=csPASSWORD
End Sub

finally I suggest you read your posts again and try and see how they appear to others-it may encourage you to adopt a different tone with the people you want to help you ;-)

you need to unlock all the cells you want the user to be able to change before you start-Locked is the default setting

An alternative approach without using sheet protection. It *may* work for you and may even work in a shared workbook ... but no guarantees.

It uses Worksheet_SelectionChange to monitor the cells. Once data has been entered, you cannot select the cell(s) again. It "homes" to cell A1 if a completed cell is selected. You could limit the range that is monitored and you could pick a different cell to home to. However, you do need to move away from the selected cell.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim cell As Range
Dim bDataPresent As Boolean
bDataPresent = False
For Each cell In Target
    If cell.Value <> "" Then
        bDataPresent = True
        MsgBox "you cannot edit cell " & cell.Address
    End If
Next ' cell
If bDataPresent Then
    Application.EnableEvents = False
    Range("A1").Select
    Application.EnableEvents = True
End If
End Sub

Regards, TMS