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