Question

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

如果我只打开一个工作簿，这项工作。我可以简单地隐藏并显示表单中的工作簿。但是，如果我有另一个工作簿打开，请说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和Excel的示例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

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

1 个答案: