如何让PERSONAL.XLSB宏在任意工作表单元格变更时自动运行

核心需求 #

希望所有打开的Excel工作表，只要单元格内容发生变更，就自动执行PERSONAL.XLSB模块中的HighlightMisspelledCells宏，无需为每个新建/打开的工作表手动添加Worksheet_Change事件代码。

解决方案：应用级全局事件监听 #

通过在PERSONAL.XLSB中创建类模块捕获Excel应用级的SheetChange事件，实现全局监听：

1. 打开PERSONAL.XLSB的VBA编辑器（按Alt+F11）
2. 插入类模块：右键PERSONAL.XLSB节点 → 插入 → 类模块，将类模块重命名为clsAppEvents（按F4调出属性窗口修改名称）
3. 在clsAppEvents类模块中添加以下代码：

Public WithEvents xlApp As Application

Private Sub xlApp_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' 触发变更时直接调用PERSONAL中的高亮宏
    HighlightMisspelledCells
End Sub

4. 插入标准模块：右键PERSONAL.XLSB节点 → 插入 → 模块，添加初始化代码：

Dim appEvents As clsAppEvents

Sub AutoOpen()
    ' 启动Excel时初始化事件监听
    Set appEvents = New clsAppEvents
    Set appEvents.xlApp = Application
End Sub

优化原高亮宏（可选） #

原宏仅标记错误单元格但不清除旧标记，且遍历效率可优化，修改后的代码如下：

Sub HighlightMisspelledCells()
    Dim cl As Range
    ' 先清除所有单元格的红色填充
    ActiveSheet.UsedRange.Interior.ColorIndex = xlColorIndexNone
    For Each cl In ActiveSheet.UsedRange
        ' 跳过空单元格，仅检查有内容的单元格
        If cl.Value <> "" And Not Application.CheckSpelling(word:=cl.Text) Then
            cl.Interior.Color = vbRed
        End If
    Next cl
End Sub

额外问题解决：工作表代码保存后消失 #

出现“无法在无宏工作簿中保存以下功能”提示，是因为当前工作簿为*.xlsx（无宏格式），保存带VBA代码的工作簿需切换为启用宏的格式：

• 执行“文件 → 另存为”，文件类型选择Excel 启用宏的工作簿 (*.xlsm)或Excel 二进制工作簿 (*.xlsb)，保存后代码不会丢失，也不会再弹出保存提示。

内容的提问来源于stack exchange，提问作者mack38