Excel - 关闭隐藏工作表

问题描述：

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

答

在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

我试过了你的代码。当“True”时，Excel会要求我保存Workbook 2.xls。当设置为“False”时，Excel没有完全关闭。我的意思是，Workbook 2.xls的一个实例仍然存在。工作簿2.xls工作表已关闭，但应用程序仍然存在。＃ – agentfl

Excel - 关闭隐藏工作表

相关推荐