VBA锁定的单元格不会改变颜色

Question

我正在研究应该比较数据的事物。数据的一部分仅用于比较（此部分应被锁定），如果另一部分发生更改，则更改后的单元格的颜色应更改。双方都解锁后，它就可以正常工作。就在我锁定一侧时，颜色不再改变。有人知道为什么吗？

Set rngBereich = Intersect(Target, Range("N3:N3000,P3:P3000,T3:Z3000"))
  If Not rngBereich Is Nothing Then
    For Each rngArea In rngBereich.Areas
      For Each rngZelle In rngArea
        Dim str1 As String
        Dim str2 As String
        str1 = rngZelle.Value
        str2 = rngZelle.Offset(0, 20).Value

        If str1 <> str2 Then
          rngZelle.Interior.ColorIndex = 6
        Else
          rngZelle.Interior.ColorIndex = 0
        End If
      Next rngZelle
    Next rngArea
  End If