小编Mun*_*ain的帖子

我想问一下，如果在这个 Range("D2:D500") 中输入了“拒绝”这个词，那么它所在行之后的值不能只在 E 列中输入。

只要“拒绝”字词进入 D 列，那么只有在 E 列的单元格下方无权输入任何值，否则用户只能在 A、B、C 和 D 列输入值。如果用户在 E 列中输入值，则显示消息“您不允许”并清除该单元格的内容。

对于同一行，我使用的以下代码如下：

' 列 D 的此代码用于清除同一行中的数据

If rngTarg Is Nothing Then GoTo ExitHandler
For Each rngToChk In rngTarg
    Select Case rngToChk.Value
    Case "Denied"
        rngToChk.Offset(0, -1).ClearContents
        rngToChk.Offset(0, -2).ClearContents
        rngToChk.Offset(0, 1).ClearContents
        rngToChk.Offset(0, 2).ClearContents
    End Select
Next rngToChk


' this code for Column E which will help to user that it won’t have access to enter data in the same row

For Each cell …