Excel 365 VBE隐藏模块后代码窗口无内容 如何恢复原有代码模块

• 方案1：从版本历史/临时文件恢复 #

  Excel 365默认开启文件版本记录，操作如下：
  • 若文件存储在OneDrive/SharePoint，右键点击本地同步的文件，选择「属性」-「以前的版本」，找到大小为259KB的对应历史版本，直接恢复即可。
  • 未开启云同步的情况，访问Office临时文件夹查找缓存版本：
    自动保存缓存路径：C:\Users\<你的系统用户名>\AppData\Roaming\Microsoft\Excel
    未保存文件路径：C:\Users\<你的系统用户名>\AppData\Local\Microsoft\Office\UnsavedFiles
    找到修改时间匹配编辑时段的xlsm/xlsb格式文件，复制到其他路径后打开验证代码是否完整。

• 方案2：VBA脚本强制导出所有模块 #

  即使VBE内看不到代码，只要项目资源管理器能看到模块名称，就可以通过第三方Excel的宏批量导出所有代码：
  1. 新建空白启用宏的Excel文件，依次点击「文件」-「选项」-「信任中心」-「信任中心设置」-「宏设置」，勾选「信任对VBA工程对象模型的访问」，确认保存。
  2. 按下Alt+F11打开VBE，右键点击当前工程插入模块，粘贴如下代码：

     Sub ExportAllModules()
         Dim targetWb As Workbook
         Dim vbComp As Object
         Dim exportPath As String
         ' 替换为损坏文件的完整本地路径
         Set targetWb = Workbooks.Open("C:\XX路径\你的损坏文件.xlsm")
         ' 替换为代码导出的目标文件夹路径，末尾需加\
         exportPath = "C:\XX导出路径\"
         
         For Each vbComp In targetWb.VBProject.VBComponents
             Select Case vbComp.Type
                 Case 1 ' 标准模块
                     vbComp.Export exportPath & vbComp.Name & ".bas"
                 Case 2 ' 类模块
                     vbComp.Export exportPath & vbComp.Name & ".cls"
                 Case 3 ' 窗体
                     vbComp.Export exportPath & vbComp.Name & ".frm"
             End Select
         Next
         targetWb.Close SaveChanges:=False
         MsgBox "所有模块导出完成"
     End Sub
     

  3. 运行代码后到导出路径查看导出的代码文件，内容可以直接用记事本打开验证，也可以导入到新的Excel文件中使用。

• 方案3：手动提取VBA工程文件修复 #

  如果上述方案无法读取模块，可手动提取VBA存储文件恢复：
  1. 把损坏的Excel文件后缀名从.xlsm/.xlsb改为.zip，解压压缩包到本地文件夹。
  2. 打开解压后的文件夹，进入xl目录，找到vbaProject.bin文件，该文件存储了所有VBA代码、模块、窗体信息。
  3. 新建一个空白启用宏的Excel文件，保存后同样把后缀改为.zip并解压。
  4. 用之前提取到的vbaProject.bin替换空白文件解压后xl目录下的同名文件。
  5. 把空白文件的所有解压文件重新压缩为zip格式，再把后缀改回.xlsm，打开后即可看到完整VBA代码。

• 方案4：第三方工具兼容读取 #

  可以用OpenOffice/LibreOffice的Calc组件打开损坏的Excel文件，Office无法识别的损坏VBA工程通常可以被开源办公软件正常读取，读取后直接另存为xlsm格式即可完成修复。

问题附图：

内容的提问来源于stack exchange，提问作者Winston Snyder