通过vba中的用户表单隐藏特定的工作簿

Question

我有一个带有 2 个命令按钮的用户表单：隐藏和显示。

如果我只打开 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