AUTOMATIC LOCK EXCEL SHEET after data entry

Code is here
Private 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:=”1234”
xRg.Locked = True
Target.Worksheet.Protect password:=”1234”
End Sub
#autolock #dataentry #entryrestricted
Important Links
Our You Tube channel 👍👍
www.youtube.co...
Our LinkedIn channel 👍👍
/ excel-tricks-vikal-jai...
Instagram link 👍👍
/ tricksexcel
Telegram link 👍👍
t.me/exceltricks1
Excel group links 👍👍
/ tricksexcel
Twitter link 👍👍
/ vikal10000
Wanna Paid courses 👍👍
Contact whatsapp [phone] or email [e-mail]

[@BrijeshVishawakarma-g2l]

Mai apne excel file ko ek nischit date ke 10 din bad usko automatically lock krna chahta hu
Jise Mai hi unlock Karu aur use karu

[@fi9batman745]

How to unlock i have live shared sheet

[@redrontu4747]

Is there any other solution without using code?

[@VIKOMINSTITUTE]

Not yet