vba - Excel按代号取消隐藏工作表

Question

我使用带有命令按钮的用户窗体，该按钮取消隐藏非常隐藏的工作表，然后通过工作表的代号选择它们，这样我就可以对工作表进行编辑，然后在完成对工作表的更改后使用另一个命令按钮隐藏它们。

但是，当我同时打开 (2) 个具有不同文件名的工作簿时，我会收到错误消息。

Sub Show_Sheet()

BlankOptionSheet.Visible = -xlSheetVisible
BlankOptionSheet.Select

End Sub

Answer 1

如果用户窗体位于当时当前未处于事件状态的工作簿中，则代码将失败，因为您无法选择不在 ActiveWorkbook 中的工作表。您应该激活工作表而不是选择它:

Sub Show_Sheet()

    BlankOptionSheet.Visible = -xlSheetVisible
    BlankOptionSheet.Activate

End Sub