Question

我有一张名为＆＃34; JE＆＃34;的主页。这张表是我工作簿的主要形式。在宏中调用和引用了许多工作表。我想隐藏所有这些表格，所以只是主表单/表格出现。但是，例如，在主工作表上，我有一个按钮，一旦点击，就会触发一个宏，该宏将用户带到另一张列出的值。在主窗体/工作表上，我写了一个子来隐藏所有的工作表，但是一旦我保存了代码，它就没有隐藏所有的工作表。我已经看到了与我的有些相似的其他问题，但我之前从未做过类似的事情，而且我不确定如何将这些答案合并到我的工作簿中，如果我能做到的话

我还尝试编写一些代码来取消隐藏宏所触及的工作表但到目前为止还没有工作。

这是我在主表上尝试实现的子目录：

Sub HideSheets()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Sheets
If ws.Name <> "JE" Then
    ws.Visible = xlSheetHidden
End If
Next
End Sub

以下是我尝试添加到宏的代码，该宏连接到我前面提到的按钮：

   Sub acct_search()
'
' acct_search Macro
'

'
Application.ScreenUpdating = False
Sheets("acct_codes").Visible = True

    Sheets("acct_codes").Select


End Sub

它通常应该起作用，但不会隐藏。我希望只有在该宏调用时才能看到它，并且一旦用户离开包含所有帐户的工作表，我就希望工作表重新被隐藏。

我可以在每个要隐藏的工作表中写一个子类，如下所示：

Sub HideSheet()

    Dim sheet As Worksheet

    Set sheet = ActiveSheet 'Or set sheet = SheetName

    sheet.Visible = xlSheetVeryHidden

End Sub

在隐藏的表格上运行宏

0 个答案: