XLTm模板Workbook_Open子例程无法自动执行，需实现自动格式化

一、Workbook_Open无法自动运行的排查点 #

• 宏安全设置拦截
  这是最常见的原因，按以下步骤检查：

  1. 打开Excel选项 → 信任中心 → 信任中心设置 → 宏设置
  2. 选择「启用所有宏」或「启用无数字签署的所有宏」（若宏未做数字签名）
  3. 把模板所在文件夹添加到「受信任位置」，避免Excel拦截该文件的宏

• 代码存放位置错误
  Workbook_Open事件必须放在ThisWorkbook模块中，而非普通标准模块：

  1. 按Alt+F11打开VBA编辑器
  2. 在左侧工程资源管理器中找到TemplateT的ThisWorkbook，双击打开
  3. 确认代码写在此处，而非其他模块（如Module1）

• 模板打开方式错误
  .xltm是模板文件，直接双击打开会生成不带宏的新工作簿，原模板的Workbook_Open不会触发。正确打开方式：

  1. 打开Excel程序，通过「文件」→「打开」选择TemplateT.xltm，打开模板本身
  2. 若要基于模板创建带宏的新工作簿，需将代码写在模板的ThisWorkbook中，新工作簿保存为.xlsm格式即可继承宏

二、实现「粘贴内容后自动设为粗体」的正确方法 #

Workbook_Open仅在打开时执行一次，无法满足粘贴触发的需求，需使用Worksheet_Change事件监听D列变化：

操作步骤： #

1. 按Alt+F11打开VBA编辑器，找到目标工作表（如Sheet1），双击打开其代码模块
2. 粘贴以下代码：

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim affectedRange As Range
    
    Set affectedRange = Intersect(Target, Me.Range("D:D"))
    If Not affectedRange Is Nothing Then
        Application.EnableEvents = False ' 关闭事件避免循环触发
        affectedRange.Font.Bold = True
        Application.EnableEvents = True ' 恢复事件触发
    End If
End Sub

代码说明： #

• Worksheet_Change会在工作表内容变化时触发（包括粘贴操作）
• Intersect判断变化区域是否涉及D列，仅处理目标列的操作
• 加入Application.EnableEvents防止批量粘贴时重复触发事件，提升稳定性

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