Excel - 关闭隐藏的工作表

【问题标题】：Excel - Close hidden worksheetExcel - 关闭隐藏的工作表
【发布时间】：2016-03-04 11:08:56
【问题描述】：

当我打开 Workbook 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

【问题讨论】：

标签： excel vba macros

【解决方案1】：

在ThisWorkbook 模块中，您可以使用Workbook_BeforeClose 过程在Workbook_1 关闭之前关闭Workbook_2.xls。

我们将True 传递给.Close 方法，以便它在关闭之前保存工作簿。

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Workbooks("Workbook_2.xls").Close True

End Sub

【讨论】：

我试过你的代码。当True 时，Excel 会要求我另存为 Workbook 2.xls。当设置为False时，Excel 不会完全关闭。我的意思是，Workbook 2.xls 的一个实例仍然被抛在后面。 Workbook 2.xls 的工作表已关闭，但应用程序仍然存在。 #