Excel - Закрыть скрытый рабочий лист

Question

Когда я открываю книгу 1.xlsm, Workbook 2.xls откроется автоматически, но будет скрыта в фоновом режиме.

Как настроить макрос, чтобы при закрытии Workbook 1.xlsm оба экземпляра Excel будут закрыты. т. е. нажмите кнопку закрытия в Workbook 1.xlsm также полностью закроет Workbook 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 

Answer 1

В ThisWorkbook модуле вы можете использовать Workbook_BeforeClose процедуру, чтобы закрыть Workbook_2.xls до Workbook_1 закрывается.

Мы передаем True в метод .Close, чтобы он сохранил книгу перед ее закрытием.

Private Sub Workbook_BeforeClose(Cancel As Boolean) 

    Workbooks("Workbook_2.xls").Close True 

End Sub