[已解决]EXCEL关闭时，msgbox取消，怎么不让EXCEL关闭

pel46585

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Msgbox("你真得想关闭吗？", vbOKCancel + vbInformation, "防误关闭！！！") = vbOK Then
        msgbox "88"
    Else
       Exit Sub
'这里要怎么写，才可以在用户按取消按钮时，不关闭本表。而是等用户处理完后才关闭？
    End If
End Sub


谢谢楼下的朋友！

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-5-8 17:20

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     If MsgBox("你真得想关闭吗？", vbOKCancel + vbInformation, "防误关闭！！！") = vbOK Then
   
3.         MsgBox "88"
   
4.     Else
   
5.         Cancel = True
   
6.         'Exit Sub
   
7.         '这里要怎么写，才可以在用户按取消按钮时，不关闭本表。而是等用户处理完后才关闭？
   
8.     End If
   
9. End Sub

复制代码

跳转到最佳答案楼层

那么的帅

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     If MsgBox("你真得想关闭吗？", vbOKCancel + vbInformation, "防误关闭！！！") = vbOK Then
   
3.         MsgBox "88"
   
4.     Else
   
5.         Cancel = True
   
6.         'Exit Sub
   
7.         '这里要怎么写，才可以在用户按取消按钮时，不关闭本表。而是等用户处理完后才关闭？
   
8.     End If
   
9. End Sub

复制代码