Worksheet_SelectionChange不适用于XLSM工作表

Question

我试图通过在我的一个xlsm工作表中编辑VBA代码来捕获单元格中的单击事件。为了进行健全性检查，我只是试图将任何单元格点击为红色。这是我的VBA代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'prevent Select event triggering again when we extend the selection below
    Application.EnableEvents = False
    Target.Interior.Color = vbRed
    Application.EnableEvents = True
End Sub

保存代码后，回到我的工作表，我点击一个单元格，但它不起作用。我曾经在过去的某个时刻确实让它工作了，而且我不确定我现在做了哪些不同的事情，但是我无法调试这个问题。

我不确定这是否重要，但是当我进入VisualBasic编辑器时，旁边有多个项目。我只编辑我正在使用的文件的工作表代码，但我似乎无法删除其他项目。

Answer 1

代码看起来很好（假设您要更改make触摸的每个单元格变为红色），因此它必须位于错误的位置。

1. 重新启动计算机。 （幽默我）

2. 打开Excel并创建新工作簿。

3. 右键单击工作表的标签（位于屏幕底部），然后点击View Code。

4. 将代码粘贴到打开的工作表模块中。

5. 点击工作表。