为何Excel修改退出不提示保存

估计是被宏代码把退出保存这个事件，你看下个人宏工作簿里面是否存有可疑的宏。有的话就删掉。

如果实在不行，就重装
或者，alt+f11
双击sheet1
键入：
On Error Resume Next
Dim objExcel As Excel.Application
err.Clear
Set objExcel = GetObject(,"Excel.Application")
'-------以下为提前判定是否有错误发生，如果没有Excel程序开启，则GetObject错误
If err.Number >= 1 Then
MsgBox "没有Excel程序开启"
Set objExcel = Nothing
Exit Sub
End If
If err.Number = 0 Then
If MsgBox("系统检测到您有其他Excel程序正在运行，系统将关闭它们！", vbOKCancel + vbExclamation, "警告") = vbCancel Then
Set objExcel = Nothing
Exit Sub
End If
End If
'----------------------------
Do While err.Number = 0
objExcel.ActiveWorkbook.Save '只能强制保存最后一个Excel程序
'如果关闭所有Excel（除最后一个外，其他都不自动保存）则加一句代码
ActiveWorkbook.saved=true '即不提示是否保存
objExcel.Quit
Loop
Set objExcel = Nothing
保存运行即可
祝你成功！

这种情况可能是使用了宏禁止了提示，宏可禁止，也可启动。

Application.DisplayAlerts = False '关闭提示
Application.DisplayAlerts = True '打开提示

具体操作步骤：

• Alt+F11，打开VBE

• Ctrl+G，快速模式

• 输入如下如下代码

• 回车即可。

Application.DisplayAlerts = True '打开提示

提示保存是Office办公自动化软件的必要功能之一。
包括其他的一些编辑软件同样也会有这类的功能。

如果你确定不能自动提示保存，那说明你的电脑中已经造成Office组件损坏或者缺失。

重装是最好的选择。
早点重装，早点恢复～

不重装的方法就是，每次编辑后，手动保存后退出。
如果哪次忘了，骂微软吧。

顺便说一句，重装Office的话，在搜索资源的时候，最好搜索Office安装版的完整版。

1、启动 Excel 并创建一个新的工作簿。
2、按 ALT + F11 可打开 Visual Basic 编辑器。 （说明一下这一步：如果你按 ALT + F11没有弹出Visual Basic编辑器窗口，那么肯定是没有安装，需要office安装盘安装编辑器）
3、在 插入 菜单上单击 模块。 （或者直接双击左边的“工程资源管理器”）的“sheet1“或者其他的sheet，下图
4、新模块中键入下面的代码。
Sub Caption_Macro()
'
'More code here.
'
'Changes the Caption property of the first window
Windows(1).Caption = "Window 1"
'Setting that the workbook has changed.
ActiveWorkbook.Saved = False
'
'More code here.
'
End Sub
5、 运行以上那段代码，运行方法：点击那个绿色的三角形按钮（类似播放按钮，见下图红色圈内标注），或者按键盘上的F5键，弹出运行宏的对话框，选择宏Caption_macro，然后单击运行。
6、再按 ALT + F11切换到 Excel。
7、单击 关闭。这时候可以看到提示您保存工作簿。
随意打开几个excel文档，试一下，随便输几个数字，再退出，一切都恢复正常。
问题解决

提示：“宏”成功运行后，可以删除那段代码，或者退出的时候不选择“保存” ，即，不保存那段代码

偶然间想到了一个方法不知道能不能解决问题（我也没试过）
用“开始”—“程序”—“Microsoft Office”—“Microsoft Office工具”—“Microsoft Office用户设置保存向导”工具，在别的电脑上保存用户的设置文件，然后复制到你的电脑中。用这个工具恢复一下看可不可用。