在日常工作中，工作簿文件中的工作表经常需要隐藏，如果需要隐藏多个工作表，手工操作就比较麻烦，下面看几个常用的场景。

隐藏指定名称的工作表

Sub HiddenShtByName()
    Dim objSheet, strShtName
    For Each strShtName In Array("Sheet1", "Sheet2")
        Sheets(strShtName).Visible = False
    Next
    Set objSheet = Nothing
End Sub

【代码解析】

第3~5行For Each循环读取数组中的工作表名称。

第4行代码设置工作表的Visible属性为False，隐藏工作表。如果设置属性值为xlSheetVeryHidden，则在Excel界面中无法取消该工作表的隐藏状态。

隐藏非活动工作表

Sub HiddenSht()
    Dim objSheet
    For Each objSheet In Sheets
        If objSheet.Name <> ActiveSheet.Name Then objSheet.Visible = False
    Next
    Set objSheet = Nothing
End Sub

【代码解析】

第3~5行For Each循环遍历工作表对象集合。

第4行代码判断工作表的名称是否与当前活动工作表相同，如果不同，则设置工作表的Visible属性为False，隐藏工作表。

显示全部工作表

Sub UnHiddenSht()
    Dim objSheet
    For Each objSheet In Sheets
        objSheet.Visible = True
    Next
    Set objSheet = Nothing
End Sub

【代码解析】

第3~5行For Each循环遍历工作表对象集合。

第4行代码取消隐藏工作表，这里使用的取巧的方式，无论工作表是否被隐藏，都重新设置其Visible属性为True。

首先我们打开电脑里excel表格
1、以excel2010版本为例，如下图要隐藏E列的数据，首先选中E列，然后点击鼠标右键，在弹出框里点击“隐藏”；
Excel隐藏
2、隐藏过后，就看不见你隐藏的内容了。
3、想要取消隐藏，就选中所有的内容(ctrl+A)，单击右键，选择取消隐藏。
取消隐藏后，就可以看见你以前隐藏的内容了
反之如果隐藏行的话同上一样的操作步骤，首先选中要隐藏的行，然后点击鼠标右键，在弹出框里点击“隐藏”；
如下图，则可将所选中的行数据都隐藏起来了。
想要取消隐藏，就选中所有的内容(ctrl+A)，单击右键，选择取消隐藏。
是不是很简单赶快动手试试吧！大家记得关注哦，每天分享实例小技巧。

	

国庆惊喜大促狂欢大放价
23门原创教程，原价168，限时87元！！
国庆狂欢，优惠不等人，早买早便宜 
点击了解
支持微信公众号+小程序+APP+PC网站多平台学习
怎样批量取消隐藏的工作表？常规的操作是点工作表标签，按鼠标右键点取消隐藏，这种方法只能一张一张工作表去取消隐藏，如果隐藏的工作表较多，这种操作费时又费力。通过修改后缀名和自定义视图这两种纯技巧的方法就能批量取消隐藏的工作表！一、修改文件后缀名的方法操作步骤：第一步：将隐藏工作表后的excel文件保存并关闭，将excel文件的后缀名.xlsx更改为.rar，在弹出的【重命名】对话框中点【是】第二步：双击鼠标左键打开.rar文件，打开xl文件，将workbook.xml文件后缀名.xml改为.txt，打开该文件，复制记事本中的hidden，按键调出【替换】对话框，将hidden替换为空，保存并关闭。将.txt后缀名改回为.xml，关闭.rar文件。第三步：将文件后缀名.rar改为.xlsx，打开.xlsx文件可以看到隐藏的工作表都已经显示出来了。二、自定义视图的方法操作分步骤：第一步：在工作表未隐藏前，先创建自定义视图在【视图】选项卡下【工作簿视图】组中点【自定义视图】在弹出的【视图管理器】对话框中点【添加】在弹出的【添加视图】对话框中输入视图名称，点【确定】第二步：将需要隐藏的工作表隐藏，若想要批量取消隐藏工作表，只需要在【视图管理器】中选中视图名称【显示所有工作表】，点【显示】就可以了。今天的分享就到这，如果教程对大家有用，希望大家多多分享点赞支持小编哦！你的每一次点赞和转发都是支持小篇坚持原创的动力。
推荐学习★★★★★
请扫码下载O(∩_∩)O哈哈~

	

Sub VBA小程序_遍历所有工作表_取消隐藏所有行_列()
    Dim shp As Shape, sht As Worksheet
    Rem On Error Resume Next '忽略报错，防止有#N/A
    
    Rem 遍历所有工作表，取消隐藏行 + 列
    For Each sht In Worksheets
        sht.Activate
        sht.Cells.EntireColumn.Hidden = False   '取消隐藏所有行
        sht.Cells.EntireRow.Hidden = False   '取消隐藏所有列
    Next
    
    Rem On Error GoTo 0 '恢复报错
End Sub