关闭excel,提示是否保存，选择是、否、取消后的VBA代码？

lsh888

各位大侠：
       我在excel中编写了程序，希望在点击关闭时出现“提示框“，”是否保存文件”，当选择是，对文件进行保存； 当选择否，即不保存；当选择取消，即不关闭excel文件。请帮忙，谢谢！！！

凌空一羽

本来不是自带有的吗？

lsh888

我用的是2003excel,没有自带VBA程序啊？当选择是，对文件进行保存； 当选择否，即不保存；当选择取消，即不关闭excel文件的程序啊，请大侠帮我写改一下程序，谢谢！！我的代码为：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim arr, fname, arr1, d
    fname = ActiveWorkbook.Name
    arr = Split(fname, ".")
   d = MsgBox("是否保存？？", vbYesNoCancel, "提示")   '注：其中yes=6, no=7, 取消=2
    If d = 6 Then
       If InStr(fname, "日") = 0 Then
          ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & arr(0) & " " & Format(Now, "m月d日h时m分s秒") & "." & arr(1)
       Else
          arr1 = Split(arr(0), " ")
          ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & arr1(0) & " " & Format(Now, "m月d日h时m分s秒") & "." & arr(1)
       End If
    ElseIf d = 2 Then ActiveWorkbook.Close flase   
    End If
End Sub
点击“是”后，会自动按日期时间保存。点击“否”后，不保存。但点击取消后，出现错误。请大侠帮忙改写一下，不关闭excel。谢！！

lsh888

朱荣兴 发表于 2017-1-27 17:17

谢谢朱荣兴老师！！祝你新年愉快！万事如意！

xyz444excel

本来点击关闭就会出现提示框...[是][否][取消]....

ccb0606

朱荣兴 发表于 2017-1-27 17:17

  Workbooks.Open Filename:="C:\Users\Administrator\Desktop\4.xls"
    Cells.Select
    Range("C3").Activate
    Selection.Copy
    Windows("表1 - 自动.xlsm").Activate
    Sheets("1").Select
    Cells.Select
    ActiveSheet.Paste
    Sheets("2").Select
Workbooks("4.xls").Close SaveChanges:=False
end sub

高手，麻烦看下我这个撒。我怎么关闭4这个表，每次都要提示"粘贴板上有大量数据，是否保留其内容"。怎么取消这个选择哦，直接自动关闭，谢谢