没有密码也能让通过VBA隐藏的工作表取消隐藏

来源:转载

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属性值达到取消工作表隐藏的目的。

分享给朋友:
您可能感兴趣的文章:
随机阅读: