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 |
No comments:
Post a Comment
THANKS FOR YOUR SUPPORT