PERSONAL.XLSB模块代码不可见无法运行及宏录制异常问题求助

一、紧急代码提取（优先操作） #

既然部分宏仍可运行，说明代码还在内存中，可通过以下方式提取：

• 打开Excel，确认PERSONAL.XLSB已加载（VB编辑器中可见项目）
• 按Alt+F11打开VBE，新建一个xlsm格式工作簿（该格式支持宏编辑）
• 在新工作簿的模块中输入以下代码，按F5执行：

Sub ExtractPersonalMacros()
    Dim srcModule As Object
    Dim destModule As Object
    Dim wbDest As Workbook
    
    Set wbDest = ThisWorkbook
    '遍历PERSONAL.XLSB所有模块
    For Each srcModule In Application.Workbooks("PERSONAL.XLSB").VBProject.VBComponents
        If srcModule.Type = vbext_ct_StdModule Then '提取标准模块
            Set destModule = wbDest.VBProject.VBComponents.Add(vbext_ct_StdModule)
            destModule.Name = srcModule.Name
            destModule.CodeModule.AddFromString srcModule.CodeModule.Lines(1, srcModule.CodeModule.CountOfLines)
        ElseIf srcModule.Type = vbext_ct_Document Then '提取ThisWorkbook/工作表模块代码
            Set destModule = wbDest.VBComponents(srcModule.Name)
            destModule.CodeModule.AddFromString srcModule.CodeModule.Lines(1, srcModule.CodeModule.CountOfLines)
        End If
    Next srcModule
    MsgBox "代码提取完成，保存当前xlsm文件即可"
End Sub

• 执行完成后，保存当前xlsm文件，即可得到PERSONAL.XLSB的代码备份。

二、修复PERSONAL.XLSB的尝试 #

提取代码后，可尝试修复原文件：

• 彻底关闭Excel，打开任务管理器确认所有EXCEL.EXE进程已结束
• 找到PERSONAL.XLSB默认路径（C:\Users\[你的用户名]\AppData\Roaming\Microsoft\Excel\XLSTART），复制文件到桌面备份
• 打开Excel，点击「文件」>「打开」> 选中PERSONAL.XLSB，点击打开按钮旁的下拉箭头，选择「打开并修复」
• 若修复失败，直接用提取的代码重建PERSONAL.XLSB：
  1. 新建空白xlsm文件，将提取的代码复制到对应模块
  2. 另存为PERSONAL.XLSB，保存类型选「Excel启用宏的二进制工作簿（*.xlsb）」，路径选XLSTART文件夹
  3. 重启Excel，确认新文件正常加载

三、解决非宏启用工作簿录制宏的问题 #

• 录制宏时选择「保存在：个人宏工作簿」，xlsx不支持宏，无法保存到自身的「This Workbook」
• 若仍提示名称错误，检查宏命名：不能以数字开头，不能包含空格/特殊字符，避免与内置函数重名

四、清理残留关联 #

• 删除旧的PERSONAL.XLSB及重命名后的文件，清空回收站
• 打开Excel，点击「文件」>「选项」>「信任中心」>「信任中心设置」>「受信任位置」，检查是否有其他路径加载了旧文件，如有则移除该位置或删除对应文件
• 重启电脑后再打开Excel，确认无残留异常项目

内容的提问来源于stack exchange，提问作者Alan Cannon