更改工作表的CodeName

 

属性。此属性在运行时真的不可以更改吗？ 其实可以找一个变通方法，我找了半天，发现工作表的CodeName应该就是工作表在VBE工程中所在部件的名称，那么我们就可以通过修改此名称来达到修改工作表的CodeName的目的；
[注：要使用此过程请事先点击 工具  菜单--> 宏 -->安全性，在弹出的 安全性 对话框的 可靠发行商标签 中钩选 信任对“vb项目”的访问。]

Sub ChangCodename()
    Dim S As String
    MsgBox "CodeName为：" & ActiveSheet.CodeName
    S = Application.InputBox("请输入新的CodeName:", "CodeName")
    If S = "" Then MsgBox "没有输入名称": Exit Sub
    On Error GoTo handler
    ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).Name = S
    MsgBox "CodeName已经修改为：" & ActiveSheet.CodeName
    Exit Sub
handler:
    Select Case Err.Number
        Case 50132
            MsgBox "输入名称有误"
        Case 1004
            MsgBox "未信任到VB工程的访问，请在信任选项中钩选到VB工程的访问"
        Case Else
            MsgBox Err.Number & Err.Description
    End Select
End Sub