Question

我有这段代码：

If Not (Application.Intersect(Target, Range("E2:F5000")) Is Nothing) Then
       If StrComp("pp voice", Target.Value, vbTextCompare) = 0 Then
          Target.Value = "PP Voice"
         'disable app activation cell
       End If
End If

该代码很好，做了它应该做的事情。我还需要它做的是禁用列M中同一行中的单元格。比如禁用它并填充灰色或其他东西。

此致本。

Answer 1

没关系，解决了。解锁整张纸，然后重新锁定解决了它。

   If StrComp("pp voice", Target.Value, vbTextCompare) = 0 Then
     Target.Value = "PP Voice"
     ThisWorkbook.Sheets("Sales Entry").Unprotect "password!"
     Target.Offset(0, 8).Locked = True
     ThisWorkbook.Sheets("Sales Entry").Protect "password!"
   End If

感谢您的投入！

正确使用偏移量

1 个答案: