如何用VBA隐藏和取消隐藏工作表

1在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签，在d出的右键快捷菜单单击“查看代码”进入VBA编辑环境，如下图所示：

2在任意一个模块的代码窗口中输入以下的代码

Sub xyf()
    Sheet1Visible = xlSheetHidden
End Sub

然后将光标定位于Sub 与End Sub 之间按下快捷键F5运行代码既可以将第一个工作表隐藏。

3如果要将某个工作表取消隐藏可以使用如下的代码

Sub xyf()
    Sheet1Visible = xlSheetVisible
End Sub

通过修改工作表对象的Visible属性可以在隐藏和取消隐藏之间切换。

4如果需要批量隐藏或者取消隐藏多个工作表可以使用如下的代码

Sub xyf()
    '定义一个工作表变量对象
    Dim oWS As Worksheet
    For Each oWS In ExcelThisWorkbookWorksheets
        '批量取消隐藏
        oWSVisible = xlSheetVisible
    Next
End Sub

通过 For Each 。。。Next的循环遍历每一个工作表，通过对每一个工作表的

Visible属性的设置可以实现批量取消隐藏或者批量隐藏工作表。

5当通过运行以上的代码模式批量隐藏工作表时会d出如下图所示的错误提示

Sub xyf()
    '定义一个工作表变量对象
    Dim oWS As Worksheet
    For Each oWS In ExcelThisWorkbookWorksheets
        '批量隐藏
        oWSVisible = xlSheetHidden
    Next
End Sub

这个是因为任意一个工作簿至少要有一个可见的工作表，不能所有工作表都隐藏，可以通过添加一些条件判断代码来解决。

6通过以上的步骤的学习，可以掌握快捷的批量取消隐藏和隐藏工作表的技巧。

Excel 请问如何批量取消隐藏的工作表 Sub UnhideAllSheets()
For Each Sheet In ActiveWorkbookSheets
SheetVisible = True
Next
End Sub
excel2013如何批量取消隐藏工作表？
第一步、打开你的工作簿（自然，这个工作簿隐藏了很多个工作表的，你想一次性显示他们）。
第二步、按ALT+F11（或者点击工具-宏-Visual Basic编辑器），出现vb编辑器界面。看左边，有两个框里都有英文字母，看上边一个框里（下面的那个框框不管它）。拉动滚动条，看这个框的最上边，就是你当前文件的名称，实际它的下面就是若干个工作表的名称。
第三步、随意双击一个工作表，就会在右边黑乎乎的窗口里出现一个小窗口。这个窗口的标题就是你的文件名。我们现在就要在这个小窗口里写段代码。写什么呢？看第四步。
第四步、在这个窗口的空白处输入一组代码。代码如下：复制进去即可
Sub quxiao()
For Each i In Sheets
iVisible = -1
Next
End Sub
第五步、Alt+F11回到Excel ，
第六步、Alt+F8，找到quxiao宏，选中，点击运行，ok，都显示了，保存一下即可。
怎样让别人无法取消隐藏的Excel工作表
启动Microsoft Excel，打开工作簿文档，按Alt+F11快捷键打开Visual Basic编辑器 在左侧的工程窗口的Microsoft Excel对象下选中要隐藏的工作表（如Sheet1（Sheet1）） 在属性窗口中单击Visible选项向下的三角箭头按钮，打开的下拉列表选择2 - xlSheetVeryHidden（注：至少要有一个工作表不被隐藏） 单击工具菜单中的VBAProject属性命令 打开VBAProject - 工程属性对话框，切换到保护选项卡，在锁定工程栏下勾选查看时锁定工程，并在 查看工程属性的密码 栏下键入密码，设置完成后单击确定按钮 退出Visual Basic编辑器，并保存工作簿文档：单击文件菜单单击关闭并返回到 Microsoft Excel命令 在Microsoft Excel界面，单击文件，单击保存 经过以上的设置，格式菜单中的工作表下的取消隐藏命令将无法 *** 作，如果想要在Visual Basic编辑器修改属性，就必须知道密码，否则也将无法更改。
Alt+F11打开vbe，在右下立即窗口输入：
sheet1Visible=2
回车，退出vbe即可

取消隐藏用：
sheet1Visible=1

如何显示excel隐藏的工作表
全选所有表后， 在表标签上点右键选取消隐藏，在之后出来的界面选中隐藏的表，点确定即可
如果B列隐藏了的话选择A列C列，在列头部点击鼠标右键，d出框中选择取消隐藏。
或者你全选整张表，如果你要显示列就在列头部点鼠标右键，d出框中选择取消隐藏。如果要显示行在行头部点鼠标右键
显示工作表
1、把鼠标放在工作表处，单击右键，在d出的框框里选择“取消隐藏”
2、选择想要显示的工作表，点击确定，
点击excel的第一个工作表,隐藏的工作表就自动取消隐藏，怎么回事啊
应该是用宏代码写了工作表的激活事件，看看工作表代码，就知道是怎么回事了。
Excel 怎样让某个隐藏的工作表在取消隐藏时要用密码才行
一个excel文件，里面有表1，表2，表3，表4，如何隐藏其中一个或者几个，比如隐藏表2，不光是隐藏表2，需要显示的时候需要输入密码才能显示？我知道怎么隐藏表二，右键点击隐藏就行了。如果别人想看，点取消隐藏就行。我就是想让别人想看的时候得输入密
如何用VBA隐藏和取消隐藏工作表
何用VBA隐藏和取消隐藏工作表方法详见：:jingyanbaidu/article/ac6a9a5e7e15352b653eac34

Excel中删除隐藏行可以通过解除隐藏后来删除：
1、打开Excel，找出隐藏行所在位置，如1行和3行之间；
2、按住ctrl鼠标单击1行和3行整行，右键d出菜单，选择取消隐藏，2行就会解除隐藏模式；
3、选中需要删除的行右键选择剪切或者删除即可删除隐藏的行。
excel是我们常用的办公软件，在绘制表格的时候，会有许多用不到的行和列，那么excel如何快速删除隐藏的行和列？下面小编带来批量删除隐藏行和列的方法，希望对大家有所帮助。
批量删除隐藏行和列的方法：
打开excel电子表格，然后依次点击“文件/选项”菜单
在打开的excel选项窗口中，点击左侧的“信任中心”菜单，然后在右侧页面点击“信任中心设置”按钮
在打开的信任中心窗口中，点击“文件检查器”按钮
在打开的“文件检查器”窗口中，拖动右侧的滚动条，找到“隐藏的行和列”一项，然后勾选前面的复选框
设置完成后，点击“文件检查器”窗口中的“检查”按钮，在文档检查器窗口中就可以看到查找的结果了，点击其右侧的“全部删除”按钮，就可以一次性的把所有隐藏的行和列删除了
以上就是excel如何快速删除隐藏的行和列，批量删除隐藏行和列的方法。相信看完之后对大家一定有所帮助
隐藏/取消隐藏行/列的方法如下：
方法一：
第一，打开需要隐藏行或者是列的excel表格
第二，如果是要隐藏行的话，就先选中该行，如图中所示
第三，在excel顶部找到并点击格式，在格式的下拉菜单中找到并点击行，如图中所示
第四，在行的下拉菜单中找到并点击隐藏，这个时候选中的这行就被隐藏起来了，如图中所示
第五，通过行数我们可以知道自己隐藏的行的位置是在哪里的，同理我们可以隐藏列
第六，选中某行或是某列，直接在选中区域单击鼠标右键可以进行隐藏，同时也可以通过这种方式来取消隐藏
方法二：一键显示隐藏的行与列
以下列隐藏了若干行列的数据为例，
插入一个形状作为启动代码的控制器。
为形状指定相应的宏代码，单击新建。
此时会切换到VBA界面。
在d出的模块中输入相应的代码：
Sub 矩形1_Click()
Rows()Select
SelectionEntireRowHidden = False
Columns()Select
SelectionEntireColumnHidden = False
Range("a1")Select
End Sub
关闭VBA界面，回到excel窗口。
点击按钮即可将隐藏的行列内容显示出来。

你想禁用“取消隐藏”功能，大概是不想让别人看到某些表格。其实有另外的思路实现：

1、把表格设置为深度隐藏（如图）   如果用VBA语句隐藏，例如： Sheets(3)Visible=2

2、把VBA工程加密码  (防止别人直接修改表格属性而取消隐藏）

深度隐藏的表格，即使点取消隐藏也看不到。

---