Снятие пароля в диапазоне ячеек по условию

Sub Условие ()
myPassword = "123"
 Worksheets(1).Protect Password:=myPassword
If Worksheets(1).Range("E3").Value > 0 Then
Worksheets(1).Range("C4:C16").Unprotect Password:=myPassword
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Ra As Range: Set Ra = Intersect(Range("E3"), Target)
    If Not (Ra Is Nothing) Then
        myPassword = "123"
        Me.Unprotect Password:=myPassword
        Range("C4:C16").Locked = Ra.Value > 0
        Me.Protect Password:=myPassword
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)        
Dim r As Range, rMO As Range, x, n&
  Application.EnableEvents = False
  On Error Resume Next
  Set rMO = Range("M11:P4543")
  Set r = Intersect(Target, rMO)
  If Not r Is Nothing Then
    For Each r In r.Rows
      n = 0
      For Each x In Range("M" & r.Row & ":P" & r.Row).Value
        If x = Empty Then n = n + 1
      Next
      Range("S" & r.Row).Value = IIf(n = 4, Empty, Now)
    Next
  End If
  Set r = Intersect(Target, Range("T11:V4543"))
  If Not r Is Nothing Then
    For Each r In r.Cells
      Range("W" & r.Row).Value = IIf(r.Value = Empty, Empty, Now)
    Next
  End If
      If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("T11:T4543")) Is Nothing Then
    With Target.Offset(0, 4)
        .Value = Range("AA9")
    End With
    End If
    If Not Intersect(Target, Range("U11:U4543")) Is Nothing Then
    With Target.Offset(0, 4)
        .Value = Range("AA9")
    End With
    End If
    If Not Intersect(Target, Range("V11:V4543")) Is Nothing Then
    With Target.Offset(0, 4)
        .Value = Range("AA9")
    End With
    End If
  Application.EnableEvents = True
        Me.Protect Password:=myPassword
Dim NewCellValue$, OldComment$
Dim cell As Range
        myPassword = "123"
        Me.Unprotect Password:=myPassword
    If Intersect(Target, Range("M11:M4543,011:04543,P11:P4543,T11:T4543,U11:U4543,V11:V4543")) Is Nothing Then Exit Sub
     
    For Each cell In Intersect(Target, Range("M11:M4543,011:04543,P11:P4543,T11:T4543,U11:U4543,V11:V4543"))
        If IsEmpty(cell) Then
            NewCellValue = "Ячейка очищена"
        Else
            NewCellValue = cell.Text
 
        End If
        On Error Resume Next
        With cell
            OldComment = .Comment.Text & Chr(10)
            .Comment.Delete
            .AddComment
            .AddComment
        .Comment.Visible = False
                    .Comment.Text Text:=OldComment & Application.UserName & " " & _
                            Format(Now, "MM.DD.YY h:MM:ss") & " : " & NewCellValue
            .Comment.Shape.TextFrame.AutoSize = True
            .Comment.Shape.TextFrame.Characters.Font.Size = 8
        End With
         Me.Protect Password:=myPassword
        Next cell
    End If
End Sub

  Set R = Intersect(Range("E3"), Target)
    If Not (R Is Nothing) Then
        myPassword = "123"
        Me.Unprotect Password:=myPassword
        Range("C4:C16").Locked = Ra.Value > 0
        Me.Protect Password:=myPassword
    End If

        myPassword = "123"
        Me.Unprotect Password:=myPassword
        Range("C4:C16").Locked = Ra.Value > 0
        Me.Protect Password:=myPassword