locked cell not locked

[Wanna Learn]

Hello
Below is my code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$N$11" Then
ActiveSheet.Protect "pass"

Else
If Target.Address = "$H$41" Then
ActiveSheet.Unprotect "pass"

This is what I want to do- when person completes cell N11 active sheet is
protected - until all cells are completed to H 41. when person completes H
41 active sheet is unprotected.
the above code works, BUT it does not recognized AB 11 as a locked cell
eventhough the cell is formatted as locked. thanks

 

[Gary''s Student]

To Protect a cell, try something like this first:

Sub lock_um()
ActiveSheet.Unprotect
Range("A1").Locked = True
ActiveSheet.Protect
End Sub