关于关闭工作薄事件

素心向雪

做好的表格只是分析数据用，并把文件属性设置为只读
为了方便关闭时不提示保存写了一个宏
Sub 不保存关闭()

  If Workbooks.Count = 1 Then
   Application.DisplayAlerts = False
   Application.Quit
  Else
   ThisWorkbook.Close Savechanges:=False
  End If

End Sub

插入一个按钮指定这个宏可以运行正常
但是写成关闭工作薄事件中，就会出错
如：
Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Workbooks.Count = 1 Then
   Application.DisplayAlerts = False
   Application.Quit
  Else
   ThisWorkbook.Close Savechanges:=False
  End If

End Sub

但在另一台电脑上运行有时不会出错，但会关闭所有工作薄

写成宏就都正常……

Jaofuan

关闭时不提示 自动保存代码如下：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    If Not Me.Saved Then Me.Save
End Sub

素心向雪

Jaofuan 发表于 2019-7-17 10:16
关闭时不提示 自动保存代码如下：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Applicatio ...

哎呀，这个是默认保存更改啦，我想要的是不保存关闭文件……

素心向雪

Jaofuan 发表于 2019-7-17 10:16
关闭时不提示 自动保存代码如下：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Applicatio ...

请问，关闭文件时不保存修改直接退出要如何修改代码？谢谢啦

Jaofuan

素心向雪 发表于 2019-7-17 10:51
请问，关闭文件时不保存修改直接退出要如何修改代码？谢谢啦

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close SaveChanges:=False
End Sub

素心向雪

Jaofuan 发表于 2019-7-17 13:15
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close SaveChanges:=False
End Su ...

我也这么写过，但是如果只打开此文件一个工作薄，用这个代码并不会退出Excel，会留下一个空白窗口，需要再关闭一次才行，但是如果加个判断打开工作薄数量的代码就会出错。把代码保存为宏却又可以正常执行……

ljchb

退出EXCEL，用APPLICATION.QUIT