VBA Excel：用.Name值替换所有工作表.CodeName值

Question

我想将VBA中所有工作表的.codename值更改为其相应的.name值。 我正在尝试下面提到的代码，但无法正常工作。 好心提醒

Dim Ws As Variant
For k = 1 To 37
ThisWorkbook.VBProject.VBComponents(Ws(k)).CodeName = Ws(k).Name
Next k

Answer 1

首先，您必须转到Macro Security ，在我的Excel版本上，可以在“开发人员”选项卡上找到它。
然后勾选“ 信任对VBA项目对象模型的访问 ”框。
然后，以下代码应允许您实现所需的目标：

Sub test()
For Each ws In ThisWorkbook.Sheets
    ThisWorkbook.VBProject.VBComponents(ws.CodeName).Name = ws.Name
Next ws
End Sub