Private Sub Workbook_BeforeClose(Cancel As Boolean)
If wrkBkClose = False Then
MsgBox ("Please Use The Save & Close Button"), vbInformation
Cancel = Not wrkBkClose
End If
End Sub
作業簿 BeforeClose 事件
Sub CloseSave()
Application.EnableEvents = False
Application.DisplayAlerts = False
If Application.Workbooks.Count = 1 Then
wrkBkClose = True
ActiveWorkbook.Close SaveChanges:=True
Application.Quit
Else
With ActiveWorkbook
.Close SaveChanges:=True
End With
End If
End Sub
按鈕下的模塊
上面的代碼按預期作業，除了 Excel 應用程式沒有完全關閉。以下內容仍處于打開狀態：
有人可以幫我理解為什么應用程式不會完全關閉嗎？或者我應該以另一種方式來執行此程序。在此先感謝您的幫助。
uj5u.com熱心網友回復：
僅通過按鈕關閉作業簿
- 如果它是唯一打開的作業簿，它也會退出 Excel。
本作業簿
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If wrkBkClose = False Then
MsgBox ("Please Use The Save & Close Button"), vbExclamation
Cancel = True
End If
End Sub
模塊1
Option Explicit
Public wrkBkClose As Boolean
Sub CloseSave()
wrkBkClose = True
If Application.Workbooks.Count = 1 Then
ThisWorkbook.Save
Application.Quit
Else
ThisWorkbook.Close SaveChanges:=True
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/434842.html