求教关闭工作薄时的msgbox代码?

翼静

请教怎样编写代码可以点击关闭工作薄时出现3个选择?
1:关闭保存, 2:关闭不保存,3:取消关闭.
谢谢!!!!!!!!

[ 本帖最后由 翼静 于 2008-11-14 11:11 编辑 ]

yuanzhuping

Sub SaveChang()
    Dim iMsg As Integer
    iMsg = MsgBox("是否保存后退出?", 3 + 32)
    Select Case iMsg
        Case 6
            ThisWorkbook.Close SaveChanges:=True
        Case 7
            ThisWorkbook.Close SaveChanges:=False
    End Select
End Sub

naive_1010

WOW!
Great!!

翼静

谢谢了!!!!!!!!!
为什么要选择两次是或否呢?

[ 本帖最后由 翼静 于 2008-11-14 11:13 编辑 ]

yuanzhuping

原帖由 翼静 于 2008-11-14 10:56 发表
谢谢了!!!!!!!!!
为什么要选择两次是或否呢?

怎么两次了，把你的附件上传看看。

yuanzhuping

哦，你是通过单击工作簿的关闭按钮等操作关闭工作簿的，这样：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim iMsg As Integer
    iMsg = MsgBox("是否保存后退出?", 3 + 32)
    Select Case iMsg
        Case 6
            Me.Save
        Case 7
            Me.Saved = True
        Case 2
            Cancel = True
    End Select
End Sub

翼静

谢谢!!!!!!!!!

黄世杰

要是做成一个command button来控制一下运行
这样会更有意思一点

jdmlw

谢谢，又学了一招

hhzjxss

值得学习一下！