如何通过VBA在Personal.xlsb中编写过程，为活动工作表添加Change事件？

当然可以实现！这需要借助VBA的VBIDE对象模型来操作工作表的代码模块，下面是具体的实现步骤和代码：

1. 启用必要的引用 #

要操作VBA代码模块，首先需要启用对Microsoft Visual Basic for Applications Extensibility的引用：

• 打开VBE编辑器（按Alt+F11）
• 点击菜单栏的「工具」→「引用」
• 在弹出的对话框中找到并勾选「Microsoft Visual Basic for Applications Extensibility 5.xx」（版本号可能略有不同）
• 点击「确定」保存设置

2. 在Personal.xlsb中创建Sub过程 #

打开Personal.xlsb的VBE编辑器，插入一个标准模块（右键Personal.xlsb→插入→模块），然后粘贴以下代码：

Sub AddWorksheetChangeEvent()
    Dim ws As Worksheet
    Dim vbComp As VBComponent
    Dim codeMod As CodeModule
    Dim lineNum As Long
    Dim eventExists As Boolean
    
    ' 获取当前活动工作表
    Set ws = ActiveSheet
    Set vbComp = ThisWorkbook.VBProject.VBComponents(ws.CodeName)
    Set codeMod = vbComp.CodeModule
    
    ' 检查是否已存在Worksheet_Change事件
    On Error Resume Next
    lineNum = codeMod.Find("Sub Worksheet_Change(ByVal Target As Range)", 1, 1, -1, -1, False, False, False)
    On Error GoTo 0
    
    If lineNum > 0 Then
        eventExists = True
        MsgBox "当前工作表已存在Worksheet_Change事件！", vbInformation
    Else
        ' 插入Change事件代码（这里替换成你自己的事件逻辑）
        codeMod.InsertLines codeMod.CountOfLines + 1, _
            "Private Sub Worksheet_Change(ByVal Target As Range)" & vbCrLf & _
            "    ' 这里写入你的Change事件处理逻辑" & vbCrLf & _
            "    ' 示例：当单元格值变化时弹出提示" & vbCrLf & _
            "    MsgBox ""单元格 "" & Target.Address & "" 的值已修改！""" & vbCrLf & _
            "End Sub"
        
        MsgBox "Worksheet_Change事件已成功添加到当前工作表！", vbInformation
    End If
    
    ' 释放对象
    Set codeMod = Nothing
    Set vbComp = Nothing
    Set ws = Nothing
End Sub

3. 关键设置：允许访问VBA工程对象模型 #

默认情况下Excel会阻止对VBA工程的访问，需要开启这个权限：

• 打开Excel选项（文件→选项）
• 进入「信任中心」→「信任中心设置」→「宏设置」
• 勾选「信任对VBA工程对象模型的访问」
• 点击「确定」

4. 使用方法 #

当你需要给当前活动工作表添加Change事件时，直接运行Personal.xlsb里的AddWorksheetChangeEvent过程即可：

• 按Alt+F8调出宏对话框
• 选择AddWorksheetChangeEvent（注意要在「所有打开的工作簿」里找）
• 点击「执行」

注意事项 #

• 如果你已有自定义的Change事件逻辑，记得替换代码中' 这里写入你的Change事件处理逻辑部分的内容
• 如果目标工作表的代码模块被保护，这个过程会失败，需要先解除保护
• 操作代码模块时请谨慎，避免误删已有代码

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