如果背景颜色为黑色，excel停止访问单元格的用户

我想在Excel 2003中build立一个简单的游戏（迷宫）。如果他们有一个黑色的背景颜色，我需要一个macros，停止用户select一个单元格（使用箭头键）。

无论如何，我似乎无法阻止这种情况发生（无论颜色如何）。

任何提示或帮助将是伟大的。

谢谢。

汤姆

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim x As Integer Dim y As String Dim z As Integer Dim answer As Integer Dim OldRange As Range x = Range("AL4").Value y = Range("AL5").Value z = Range("AL6").Value accessory = Range("AL7").Value 'ColorIndex 1 is Black If Target.Cells(1, 1).Interior.ColorIndex = 1 Then OldRange.Select Else Set OldRange = Target End If 

我试过这个：我很困惑，我要去哪里错了！ 在最上面添加的ThisWorkbook中：Option Explicit Private OldRange As Range

然后，我将以下内容添加到我的Private Sub Worksheet_SelectionChange（ByVal Target As Range）区域中：

 If Target.Cells(1, 1).Interior.ColorIndex = 1 Then OldRange.Select Else Set OldRange = Target End If 

OldRange.Select行仍然出现Debug错误。

更新我正在变慢！ 抱歉! 现在非常感谢。

谢谢。

汤姆

Answer 1

以下是您的解决scheme（在工作表代码块中input此代码）：

 Private OldRange As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'ColorIndex 1 is Black If Target.Cells(1, 1).Interior.ColorIndex = 1 Then OldRange.Select Else Set OldRange = Target End If End Sub