（转载）Excel文档保存的时候，提示“文档未保存”

最新推荐文章于 2021-08-07 01:03:19 发布

aocong5568

最新推荐文章于 2021-08-07 01:03:19 发布

阅读量766

点赞数

原文链接：http://www.cnblogs.com/cookies9/p/5159282.html

版权

本文提供了一个实用的解决方案，通过使用VBA宏代码，帮助解决在保存Excel文档时遇到的“文档未保存”的问题。该方法涉及将每个工作表移除后再重新插入，以恢复正常保存功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

亲测，成功搞定

Excel文档保存的时候，提示“文档未保存”？

先打开你需要处理的excel，然后打开工具栏--宏--录制新宏--确定--停止录制宏--宏-宏--编辑--复制以下程序Sub 恢复保存()
    name0 = ActiveWorkbook.Name
    j = Sheets.Count
    For i = 1 To j
        Sheets(1).Visible = -1
        Sheets(1).Move
        Sheets(1).Move after:=Workbooks(name0).Sheets(j - 1)
    Next
End Sub

然后接着运行宏，后停止。最后关闭即可！

最近发现较多此问题，解决方法就是每个表移出去再移回来就可以了。
如果懂得使用宏，写法如下，说白了就是将每个表移出去再移回去。

转载于:https://www.cnblogs.com/cookies9/p/5159282.html