如何在VBA项目中创建新的Excel工作表和创建给定名称

创建新工作表时，可以在此处使用.name=name设置名称！但是，VBA对象仍将Sheet1作为名称

如何创建新图纸并设置VBA对象名称

---

请注意，我不是问如何设置工作簿上显示的名称，也不是问.name属性

这应该可以做到：

Public Sub Change_Codename()

    Dim ws As Object

    Set ws = ActiveWorkbook.Sheets("Sheet1")

    With ws

        .Parent.VBProject.VBComponents(.CodeName) _
        .Properties("_CodeName") = "Test"

    End With

End Sub

只需将Test更改为您想要的工作表代码名

以下是我的对象在执行代码后的外观：

另外，通过转到文件->选项->信任中心->信任中心设置，确保您对VBA项目模型具有受信任的访问权限。。。。在“宏设置”下，确保勾选“信任访问VBA项目对象模型”，如下所示：

---

这应该可以做到：

Public Sub Change_Codename()

    Dim ws As Object

    Set ws = ActiveWorkbook.Sheets("Sheet1")

    With ws

        .Parent.VBProject.VBComponents(.CodeName) _
        .Properties("_CodeName") = "Test"

    End With

End Sub

只需将Test更改为您想要的工作表代码名

以下是我的对象在执行代码后的外观：

另外，通过转到文件->选项->信任中心->信任中心设置，确保您对VBA项目模型具有受信任的访问权限。。。。在“宏设置”下，确保勾选“信任访问VBA项目对象模型”，如下所示：

---

您需要从与文档关联的VBProject中查找VBComponent，并设置其CodeName属性。您需要从与文档关联的VBProject中查找VBComponent，并设置其CodeName属性。需要明确的是，只有对VBA project对象模型设置的信任访问权限才是必需的。这将在屏幕截图中未显示“启用所有宏”设置的情况下工作。后续问题-此设置是特定于工作簿还是特定于用户？此设置处于应用程序级别，因此您打开的所有工作簿都将遵循这些设置。如果要将此代码发送到其他用户的计算机上运行，他们还必须更新此设置。请明确，仅需要对VBA项目对象模型设置的信任访问权限。这将在屏幕截图中未显示“启用所有宏”设置的情况下工作。后续问题-此设置是特定于工作簿还是特定于用户？此设置处于应用程序级别，因此您打开的所有工作簿都将遵循这些设置。如果您要将此代码发送到其他用户的计算机上运行，他们还必须更新此设置。