-
本版专家分：3446结帖率 94.44% -
问题1、在Execl2013中，使用Application.Visible = False是隐藏Execl程序，当前打开的其它Execl文档也不可见。
如何只隐藏当前的工作薄，不影响其它的工作薄？
问题2、Execl2013不同的工作薄不在一个窗口内，点击右上角的“x”就会关闭当前的工作薄。如果在点“x”后不想直接关闭工作薄，而是把当前工作薄隐藏，怎么做？
-
本版专家分：40 -
楼主你好，关于两个问题，请试试我的方法
1. 因为Application指代的是Excel本体，所以如果把它的Visible改成False，就会造成Excel被隐藏，所有的文档也都会看不到，所以咱们如果要隐藏一个Workbook，只能对ActiveWindow这个Object进行隐藏，语句是ActiveWindow.Visible = False
2.要实现这点就需要知道点击那个X之后，Excel做了什么，当用户点击后，Excel会出发一个Before Close时间。因为这个动作是Excel自己提供的，咱们要想干预它的动作，就需要在想要隐藏的Workbook的ThisWorkbook的Object中，写入一个过程
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
ActiveWindow.Visible = False
End Sub
首先要讲关闭的动作取消掉，所以Cancel = True，其次，将点击的那个窗口隐藏掉。
如果疑问，请继续发帖。
