修改模板工作表CodeName触发运行时错误1004，求助解决

关于VBAProject的疑问 #

• VBAProject是什么？：它不是你的Program.xlsm文件本身，而是每个启用宏的工作簿内置的容器，用来存放该工作簿所有的VBA代码模块、类模块、工作表代码模块等内容。默认名称为"VBAProject"，可在VBA编辑器的【工程资源管理器】面板中查看。

错误原因分析 #

运行时错误1004提示"Expecting object to be local"，核心原因是Excel的安全设置阻止了对VBA项目对象模型的编程访问，这是Excel默认的安全防护机制，防止恶意代码修改VBA项目结构。

解决步骤 #

1. 开启VBA项目对象模型的信任访问 #

1. 打开Excel，依次点击【文件】→【选项】→【信任中心】→【信任中心设置】
2. 选择【宏设置】，勾选信任对VBA项目对象模型的访问
3. 确认设置后重启Excel，使配置生效

2. 修正修改CodeName的代码 #

你的原代码存在逻辑错误（误操作工作簿的CodeName而非工作表），且无需修改VBProject名称。以下是实现批量修改工作表CodeName的正确代码：

Sub BatchChangeSheetCodeNames()
    Dim ws As Worksheet
    Dim codeNamePrefix As String
    Dim seqNum As Integer
    
    '定义CodeName前缀和起始序号
    codeNamePrefix = "WS000"
    seqNum = 2 '从WS0002开始编号
    
    '遍历当前工作簿的所有工作表
    For Each ws In ThisWorkbook.Sheets
        '修改工作表的CodeName
        ThisWorkbook.VBProject.VBComponents(ws.CodeName).Name = codeNamePrefix & seqNum
        seqNum = seqNum + 1
    Next ws
End Sub

代码关键点：

• 使用ThisWorkbook替代ActiveWorkbook，确保操作的是包含当前代码的目标工作簿，避免激活其他工作簿引发错误
• 通过ws.CodeName直接定位到对应工作表的VB组件，修改其Name属性即为修改工作表的CodeName
• 循环遍历自动生成WS0002、WS0003...的序列命名

注意事项 #

• 工作表CodeName需符合VBA标识符规则：不能以数字开头，不能包含特殊字符，不能与VBA关键字重名
• 无需修改VBProject.Name，默认的"VBAProject"完全满足需求，原代码中修改该属性的操作是多余的错误诱因

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