VBA - Lock the cell based on Conditional Formatting

[大灰狼1976]

Hi reza_doang!
Please refer to the attached file.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> [h6].Address Then Exit Sub
ActiveSheet.Unprotect "123"
Range([i6:j6], [l6]).Locked = Target = "No"
ActiveSheet.Protect "123"
End Sub