[已解决]帮忙修改错误！

qkhhlmy

我想退出时按“是”保存，“否”不保存退出。帮忙修改下。

Sub 退出系统()
a = MsgBox("确认退出本系统?", vbYesNo + vbQuestion, "退出系统")
If a = 6 Then
Sheets("sheet1").Visible = 2
Application.StatusBar = False
If MsgBox("退出保存数据“是”，退出不保存数据“否”！", 64 + 4) = 6 Then
Application.Quit
ThisWorkbook.Save
'ThisWorkbook.Close
End If
End If
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2011-11-12 21:15

1. Sub 退出系统()
   
2.     Dim a%
   
3.     a = MsgBox("确认退出本系统?", vbYesNo + vbQuestion, "退出系统")
   
4.     If a = vbYes Then
   
5.         Sheets("sheet1").Visible = xlSheetVeryHidden
   
6.         Application.StatusBar = False
   
7.         Application.Quit '这时，excel会自动询问的
   
8.     End If
   
9. End Sub

复制代码

{:041:}

跳转到最佳答案楼层

爱疯

1. Sub 退出系统()
   
2.     Dim a%
   
3.     a = MsgBox("确认退出本系统?", vbYesNo + vbQuestion, "退出系统")
   
4.     If a = vbYes Then
   
5.         Sheets("sheet1").Visible = xlSheetVeryHidden
   
6.         Application.StatusBar = False
   
7.         Application.Quit '这时，excel会自动询问的
   
8.     End If
   
9. End Sub

复制代码

{:041:}