Automatické uzamknutie bunky po jej zmene

V skupine MS EXCEL AND VBA MACROS na googli som našiel nápad ktorý sa môže niekomu zísť.
Teda ako zablokovať bunku hneď ako je zadaná jej hodnota ?
Bez dlhých reči je tu príklad.

V skratke:
1. na change event worksheet-u je "zavesený" script ktorý uzamkne aktuálnu bunku

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Target.Count > 1 Or Target.Column <> 1 Then Exit Sub
If Len(Target.Value) > 0 Then Target.Locked = True
'.EntireRow - mozna uprava pre uzamknutie celeho riadku
ActiveSheet.Protect
Target.Offset(1).Select
End Sub