2016-03-04 64 views
0

當我打開Workbook 1.xlsm時,Workbook 2.xls將自動打開,但隱藏在後臺。Excel - 關閉隱藏工作表

如何調整我的宏,以便在關閉Workbook 1.xlsm時,Excel的兩個實例都將關閉。即在工作簿1.xlsm上點擊關閉按鈕也將完全關閉工作簿2.xls。

此外,如果我可以保存並關閉Workbook 2.xls,那就太好了。

我的代碼:

Private Sub Workbook_Open() 

Application.ScreenUpdating = False 
Workbooks.Open Filename:="\....\2016\Current BSL, Branch Stock, Whouse Stock, On Order.xls", UpdateLinks:=False, ReadOnly:=True 
ActiveWindow.Visible = False 
Application.ScreenUpdating = True 

End Sub 

回答

0

ThisWorkbook模塊,你可以使用Workbook_BeforeClose程序關閉Workbook_2.xlsWorkbook_1關閉。

我們將True傳遞給.Close方法,以便在關閉它之前保存工作簿。

Private Sub Workbook_BeforeClose(Cancel As Boolean) 

    Workbooks("Workbook_2.xls").Close True 

End Sub 
+0

我試過了你的代碼。當「True」時,Excel會要求我保存Workbook 2.xls。當設置爲「False」時,Excel沒有完全關閉。我的意思是,Workbook 2.xls的一個實例仍然存在。工作簿2.xls工作表已關閉,但應用程序仍然存在。 # – agentfl