Use sub for a column only

[rain4uu]

Private Sub Worksheet_Change(ByVal Target As Range)
'Do nothing if more than one cell is changed or content deleted
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub

ActiveSheet.Unprotect "1234"
For Each cel In Target
If cel.Value <> "" Then
cel.Locked = True
End If
Next cel
ActiveSheet.Protect "1234"

End Sub

How to restrict above for particular column only?

[jeffreybrown]

Please take a few minutes to read the Forum Rules about using code tags and then amend your post accordingly.

[ code ] At the beginning of the code >> (without the spaces)
Code goes here
[ /code ] At the end of the code >> (without the spaces)

[StevenM]

Add the line:

Please Login or Register  to view this content.

Where "4" is the column number you need.

Please Login or Register  to view this content.