Question

当我打开Workbook 1.xlsm时，Workbook 2.xls将自动打开但隐藏在后台。

如何调整宏以便在关闭Workbook 1.xlsm时，Excel的两个实例都将关闭。即按工作簿上的关闭按钮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

Excel - 关闭隐藏的工作表

1 个答案: