在vba中通过userform隐藏特定的工作簿

我有一个用户窗体2个命令button：隐藏和显示。

这项工作，如果我只有1工作簿打开。 我可以简单地从表单中隐藏和显示工作簿。 但是，如果我有另一个工作簿打开让我们说，Book1。 然后点击隐藏，它也会隐藏Book1。 我只想隐藏特定的工作簿。

这是我的代码：

Private Sub cmdHide_Click() 'ThisWorkbook("hide_sheet"). Application.Visible = False End Sub Private Sub cmdShow_Click() 'ThisWorkbook("hide_sheet"). Application.Visible = True End Sub 

Answer 1

应该是这样的

 Option Explicit Private Sub cmdHide_Click() 'ThisWorkbook("hide_sheet"). Workbooks("Book1.xlsx").Windows(1).Visible = False End Sub Private Sub cmdShow_Click() 'ThisWorkbook("hide_sheet"). Workbooks("Book1.xlsx").Windows(1).Visible = True End Sub 

Excel 2010＆2013的另一个例子

 Option Explicit Private Sub cmdHide_Click() 'ThisWorkbook("hide_sheet"). Windows(ThisWorkbook.Name).Visible = False End Sub Private Sub cmdShow_Click() 'ThisWorkbook("hide_sheet"). Windows(ThisWorkbook.Name).Visible = True End Sub