1、按下Alt+F11组合键进入VBA编辑状态。

    2、执行“视图→立即窗口”命令，打开“立即窗口”。

    3、在“立即窗口”输入：?application.ThisWorkbook.Worksheets.Count

    4、点击“回车”健。

    上面几步是查询一下本工作簿有多少工作表。

    5、输入：?sheets(1).Visible   点击“回车”

    输入：?sheets(2).Visible   点击“回车”

    输入：?sheets(3).Visible   点击“回车”

    第5步是查询一下每张工作表的 Visible 属性值。“-1”表示工作表没有隐藏，“2”和“0”表示工作表是隐藏的。

    6 、如果想显示某张隐藏的工作表，直接把这张工作表的属性值“2”更改为“-1”或者“True”。操作如下：

    输入：sheets(2).Visible=True   点击“回车”，Sheet2便取消了隐藏。

    或者：sheets(2).Visible=-1     点击“回车”， Sheet2便取消了隐藏。

    输入：Sheets(3).Visible=True   点击“回车”，Sheet3便取消了隐藏。

    或者：sheets(3).Visible=-1     点击“回车”， Sheet3便取消了隐藏。

    第6步是通过更改Visible属性值达到取消工作表隐藏的目的。