Lock Cells (only specific cell) once entered data

[deepak_4you]

Hi,

Can anyone tell how to do this -

My worksheet has 4 columns which are for customers to update on shared excel file, rest all i have locked with password.

Now what i want is when anyone enter data into any cell in these 4 columns that particular cell got locked, leaving other cells of that columns unlocked for other customers, & this continues whenver anyone enters data into any cell it goes locked.

Regards

Deepak Sharma

 

[Jerry Sullivan]

Hi Deepak Sharma,

Start by formatting all the cells on the worksheet to be unlocked

Then you can add the code below.
Always try out new code on a copy of your workbook!

Right click on the Sheet Tab > View Code > Paste into the code module for that sheet.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns("A:D")) Is Nothing Then
        With Intersect(Target, Columns("A:D"))
            ActiveSheet.Unprotect Password:="MyPassword"
            .Locked = True
            ActiveSheet.Protect Password:="MyPassword"
        End With
    End If
End Sub

Be aware that Excel protection can help keep users from accidently overwriting locked cells-
however it doesn't provide a high level of security for your data.