excel怎么隐藏除了第一个工作表之外的其他工作表，并通过按钮调用隐藏的工作表？
发布网友
发布时间：2022-04-23 05:03
共3个回答
热心网友
时间：2023-10-15 17:05
在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签，在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境，如下图所示：
在任意一个模块的代码窗口中输入以下的代码
Sub
xyf()
Sheet1.Visible
=
xlSheetHidden
End
Sub
然后将光标定位于Sub
与End
Sub
之间按下快捷键F5运行代码既可以将第一个工作表隐藏。
如果要将某个工作表取消隐藏可以使用如下的代码
Sub
xyf()
Sheet1.Visible
=
xlSheetVisible
End
Sub
通过修改工作表对象的Visible属性可以在隐藏和取消隐藏之间切换。
如果需要批量隐藏或者取消隐藏多个工作表可以使用如下的代码
Sub
xyf()
'定义一个工作表变量对象
Dim
oWS
As
Worksheet
For
Each
oWS
In
Excel.ThisWorkbook.Worksheets
'批量取消隐藏
oWS.Visible
=
xlSheetVisible
Next
End
Sub
通过
For
Each
。。。Next的循环遍历每一个工作表，通过对每一个工作表的
Visible属性的设置可以实现批量取消隐藏或者批量隐藏工作表。
如下图所示
当通过运行以上的代码模式批量隐藏工作表时会弹出如下图所示的错误提示
Sub
xyf()
'定义一个工作表变量对象
Dim
oWS
As
Worksheet
For
Each
oWS
In
Excel.ThisWorkbook.Worksheets
'批量隐藏
oWS.Visible
=
xlSheetHidden
Next
End
Sub
这个是因为任意一个工作簿至少要有一个可见的工作表，不能所有工作表都隐藏，可以通过添加一些条件判断代码来解决。
热心网友
时间：2023-10-15 17:06
2.在两列中间右击，选择【取消隐藏】，或者也可以直接拉出来。
3.取消成功。
4.有些单元格数据也会被隐藏，取消方法和上面不一样，先在【审阅】-【更改】看一下是否有工作表保护。
5.如果有的话，输入密码，需要撤销保护。
这个用于隐藏编辑框中的公式。
6.如果发现，只是工作表中隐藏，编辑框还能看到里面的内容。
可以选中后，右击，选择【设置单元格格式】。
7.将【数字】-【自定义】下的类型改为【G/通用格式】，然后确定就可以取消隐藏了。
热心网友
时间：2023-10-15 17:06
