從Word VBA防止Excel提示

Question

我正在使用Word和Excel中的VBA。我有Word運行一個用戶窗體，它將自動打開一個Excel文件。用戶應該在Excel文件中填寫一些數據，然後返回到Word用戶窗體。當用戶完成填充Word用戶窗體中的所有字段時，它將在Word上運行一些將Excel中的數據複製到Word的VBA代碼。完成後，Excel文件將自動關閉。因此，我需要防止用戶手動關閉Excel應用程序。

爲了做到這一點，我在Excel VBA中使用這些代碼Sub Workbook_BeforeClose。如果用戶關閉Excel應用程序窗口，它將顯示一個消息框，詢問用戶是否仍在使用Word用戶窗體。代碼如下：

Private Sub Workbook_BeforeClose(Cancel As Boolean) 

answer = MsgBox("Are you still working with Word userform?", vbYesNo) 
If answer = vbYes Then 
    Cancel = True 
    MsgBox "This workbook should not be closed. It will be automatically closed when you finish working with Ms. Word Template Userform." 
Else 
    Application.ThisWorkbook.Saved = True 
End If 
End Sub 

在Word中VBA，我有一些代碼以關閉Excel文件：

Sub closeExcelApp() 

If Not excelApp Is Nothing Then 
    excelApp.DisplayAlerts = False 
    excelWb.Close savechanges:=False 
    Set excelWb = Nothing 
    excelApp.Quit 
End If 
Set excelApp = Nothing 

End Sub 

做的話VBA代碼從Excel的數據複製到Word時，該小組將被稱爲。但是，調用此子將導致調用Workbook_BeforeClose。同時，我不希望Workbook_BeforeClose在我稱之爲Word的VBA中的closeExcelApp子時調用。

有什麼建議嗎？

Answer 1

你可以只禁用事件：

Sub closeExcelApp() 

If Not excelApp Is Nothing Then 
    excelApp.DisplayAlerts = False 
    excelApp.EnableEvents = False 
    excelWb.Close savechanges:=False 
    Set excelWb = Nothing 
    excelApp.Quit 
End If 
Set excelApp = Nothing 

End Sub 

Answer 2

正如在評論解釋，補充該行的模塊的頂部：Public ClosingFromWord As Boolean並將此布爾值假當您啓動代碼執行。

當你在應用程序之間的工作，最簡單的方法將是寫布爾值在從Word Excel中的一個單元和讀/ LAOD在Workbook_BeforeClose這個值，以避免通過該程序的整個代碼去。

並修改代碼看起來像這樣：

Sub closeExcelApp() 
ClosingFromWord = True 
excelApp.Workbooks(1).Sheets(1).Cells(1,1) = ClosingFromWord 

If Not excelApp Is Nothing Then 
    excelApp.DisplayAlerts = False 
    excelWb.Close savechanges:=False 
    Set excelWb = Nothing 
    excelApp.Quit 
End If 
Set excelApp = Nothing 

ClosingFromWord = False 
excelApp.Workbooks(1).Sheets(1).Cells(1,1) = ClosingFromWord 
End Sub 

所以，當你執行closeExcelApp，布爾將被設置爲真和Workbook_BeforeClose不會在他的全部，因爲它會被執行與If ClosingFromWord Then Exit Sub退出：

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
ClosingFromWord = Workbooks(1).Sheets(1).Cells(1,1) 
If ClosingFromWord Then Exit Sub 

answer = MsgBox("Are you still working with Word userform?", vbYesNo) 
If answer = vbYes Then 
    Cancel = True 
    MsgBox "This workbook should not be closed. It will be automatically closed when you finish working with Ms. Word Template Userform." 
Else 
    Application.ThisWorkbook.Saved = True 
End If 
End Sub