Lock worksheet is specific cell has value over 1M

Replace the previous code with the below one

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$D$29" Then Exit Sub

If IsNumeric(Target.Value) And Target.Value >= 1000000 Then
    Me.Protect "abc"
    MsgBox "Sheet Protected", vbInformation, "Reached the Maximum Value"
End If

End Sub