excel表格怎样设置隐藏所有工作表

发布时间:2017-06-06 13:17

excel中很多工作表机密性比较大,想要隐藏起来,该怎么隐藏呢?一个一个隐藏太慢,如何将所有工作表一起隐藏,下面就跟小编一起学习excel表格隐藏所有工作表的方法。

excel表格隐藏所有工作表的方法

1、首先我们打开一个工作样表作为例子。

excel表格怎样设置隐藏所有工作表

2、使用alt+f11组合键打开vbe编辑器,新建一个模块,在模块编辑窗中输入以下代码:

Option Explicit

Sub 隐藏()

Dim i As Integer

For i = 1 To Sheets.Count

If Sheets(i).Name <> "源数据" Then

Sheets(i).Visible = 0

End If

Next x

End Sub

excel表格怎样设置隐藏所有工作表

3、解读这段代码首先是要了解工作表的名称规则是默认的以数字顺序递增,按工作表的顺序依次是sheets1、sheets2、……直到最末尾一个工作表。因此我们这里定义一个for循环,起始值为1,终值为工作表数。

excel表格怎样设置隐藏所有工作表

4、接着我们对工作表名做判断。工作表出了下标值,也就是上步提到的顺序命名,还可以自定义名称,也就是我们这里写的"源数据"。<>大于小于判断符为不等于。

excel表格怎样设置隐藏所有工作表

5、visible属性是可视属性,作为表格对象的属性即是可视或隐藏。这里写做0即是隐藏,我们可以用更直观的写法false。

excel表格怎样设置隐藏所有工作表

6、制作一个按钮并指定这个宏,我们运行一下,可以看到除了源数据工作表外,其他的工作表都隐藏起来了,如果需要回复,只需要将宏代码中visible的属性值0修改为1或者true然后运行即可。

excel表格怎样设置隐藏所有工作表

excel表格怎样设置隐藏所有工作表

猜你感兴趣:

1.excel怎么隐藏所有工作表

2.Excel怎么对工作表进行隐藏与显示

3.Excel怎样隐藏与显示工作表的行或列

4.怎么隐藏excel2013中的工作表

5.如何隐藏excel工作表的教程

excel表格怎样设置隐藏所有工作表的评论条评论