[已解决]触发事件，MSGBOX出现重复提示？

隐身

经过测试，主要是多了保存工作簿那一句的时候，MSGBOX会出现两次相同提示内容。如何避免？

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     tt = MsgBox("您正在关闭工作簿，触发关闭事件" & Chr(10) & "请选择是否保存工作簿！", 3)
   
3.     If tt = vbYes Then     ' 用户按下“是”
   
4.         MsgBox "Yes"     ' 完成某操作
   
5.         ThisWorkbook.Close True
   
6.     Else     ' 用户按下“否”
   
7.         MsgBox "No"     ' 完成某操作
   
8.         ThisWorkbook.Close False
   
9.     End If
   
10. End Sub

复制代码

2010版本格式：
窗体QueryClose事件.rar (16.53 KB, 下载次数: 4)

2012-6-24 19:36 上传

点击文件名下载附件


03版本格式
2003窗体QueryClose事件.rar (10.42 KB, 下载次数: 10)

2012-6-24 19:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

oobird

2012-6-24 19:57

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableEvents = False
------------------------
-----------------

跳转到最佳答案楼层

oobird

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableEvents = False
------------------------
-----------------

Zipall

在if之前
Application.EnableEvents = False
end if之后
Application.EnableEvents = True

隐身

oobird 发表于 2012-6-24 19:57
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableEvents = False
------------ ...

OK，太谢谢了，之前我用
Application.ScreenUpdating=FALSE
application.DisplayAlerts=FALSE
这两句不行，忘了还有这么一句

scsys1

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     tt = MsgBox("您正在关闭工作簿，触发关闭事件" & Chr(10) & "请选择是否保存工作簿！", 3)
   
3.     If tt = vbYes Then     ' 用户按下“是”
   
4.         MsgBox "Yes"     ' 完成某操作
   
5.         Me.Save
   
6.     ElseIf tt = vbNo Then   ' 用户按下“否”
   
7.         MsgBox "No"     ' 完成某操作
   
8.         Me.Saved = True
   
9.     Else             ' 用户按下“取消”
   
10.         Cancel = True
    
11.     End If
    
12. End Sub
    

复制代码