AUTOMATIC LOCK CELL AFTER ENTER TEXT IN CELL VBA COADING

HI FREND WITH THIS CODE WE CAN USE AUTOMATIC LOCK CELL AFTER ENTER TEXT IN CELL

Sub Worksheet_Change(ByVal Target As Range)

Dim xRg As Range

On Error Resume Next

Set xRg = Intersect(Range("A1:E15"), Target)

If xRg Is Nothing Then Exit Sub

Target.Worksheet.Unprotect Password:="111"

xRg.Locked = True

Target.Worksheet.Protect Password:="111"

End Sub