excel里能用VBA禁用关闭excel退出时跳出的“取消”按钮吗?

发布网友 发布时间：2023-03-18 21:18

我来回答

共5个回答

热心网友 时间：2023-11-12 13:40

现在明白你的意思了。
打开EXCEL，按Alt+F11，点开Thisworkbook，复制以下代码到程序窗口：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = True
If Not ThisWorkbook.Saved Then
Answer = MsgBox("是否保存？", vbYesNo + vbDefaultButton2, "你要的效果")
If Answer = vbYes Then ThisWorkbook.Save
End If
ThisWorkbook.Saved = True
Application.DisplayAlerts = False
End Sub
以上功能用于取代是否存盘对话框，且没有“取消”选项。

热心网友 时间：2023-11-12 13:41

加个报错处理就可以了啊。到取消出错时，自己跳出，相当于取消。
在变量定义完后 加入On Error Resume Next
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
'。。。其他代码
end sub

或者
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error goto line
'。。。其他代码
exit sub
line：
exit sub
end sub

热心网友 时间：2023-11-12 13:41

你的意思就是每次关闭必须的保存。可以换个思路，在关闭之前保存了就不会弹对话框了。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
thisworkbook.save
End Sub

热心网友 时间：2023-11-12 13:42

Private Sub Workbook_BeforeClose(Cancel As Boolean)
thisworkbook.save

热心网友 时间：2023-11-12 13:42

退出时会有取消按钮吗？不是会出现提示是否保存的对话框吗？