隐藏/取消隐藏图纸- VBA

Question

我有一个包含15个不同工作表的工作表。我想要一个“主菜单”工作表，从那里我可以只点击一个按钮，然后被重定向到所选的工作表，同时保持所有其他工作表隐藏。从选定的工作表中，我希望能够再次返回到“主菜单”工作表，并且仍然可以隐藏所有内容。因此，一次只会显示一个工作表。

我的问题是:我使用的VBA代码工作得很好，但有时它显示错误Run time error '1004': Method 'Visible' of object '_Worksheet'failed，当我去调试它时，它显示以下debug screen。

如前所述，代码可以“完美地”工作，但有时会弹出运行时错误1004。我做错了什么？代码如下；

Sub Button8_Click()
Sheet3.Visible = xlSheetVisible
Dim sh As Worksheet

    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> "practice group - mtd" Then
            sh.Visible = xlSheetHidden
        End If
    Next sh
End Sub

Answer 1

避免循环所有工作表的更快的解决方法:将可见工作表的名称隐藏在主菜单工作表中的某个位置。(在隐藏的单元格中，具有固定位置)。单击按钮时，如果选择不同于可见的选择，则取消隐藏所选内容，隐藏上一个工作表，更新主菜单。

Answer 2

Sheets("Your Sheet Name").Visible = False