选中单元格 单元格变色 不选中不变色

diablosong

EXCEL做的条码比对
用扫码枪 扫两个码进行比对
工作表不保护模式下 选中哪个单元格哪个单元格有颜色变化（也就是码枪在哪个单元格输入）
在未使用VBA代码前正常
现在的问题是 工作表保护后
VBA代码出错 求大神看看到底哪里出错了


这是第一种代码

Dim x, y

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Target.Interior.ColorIndex = 6

If x = 0 Then x = 1: y = 1

If Cells(x, y).Interior.ColorIndex = 6 Then

    Cells(x, y).Interior.ColorIndex = xlNone

End If

x = Target.Row

y = Target.Column

End Sub

第二种代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    Target.Interior.ColorIndex = 8
End Sub

diablosong

没人能给点建议吗？

likaiyihou

第一种，对变量x,y赋值的代码应该放到前面而不是在最后。
第二种，工作表保护后Cells.Interior.ColorIndex = xlNone这句会出错，建议将cells换成工作表允许编辑区域。
你可以尝试一下哈