excel - 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

标签： excelvba