隐藏表格部分内容,开启宏自动显现

实现的功能是,启用宏才能查看隐藏内容,启用宏后,隐藏的内容自动显示

一、首先手动隐藏

将要隐藏的行选择(这里是2-22行),右键,隐藏

隐藏后效果:

二、设置宏

alt+f11进入VBA编辑器,双击Sheet1表格,就是你要隐藏内容的那一张表,将以下代码复制粘贴进去

Sub main()
    Rows("2:22").Select
    Selection.EntireRow.Hidden = False
End Sub

其中2:22代表第2至22行

 然后双击ThisWorkbook,将下面一串代码粘贴进去

Private Sub Workbook_Open()
Call Sheet1.main
End Sub

这一串代码的意思是将上面的代码main自动执行,也就实现了在启用宏的情况下,自动显示隐藏内容,不启用宏则无法显示的效果

ctrl+s保存,会出现弹窗,直接选择关闭弹窗,就可以重新保存了,要保存为xlsm模式的

 

效果:

 点击启用内容后,显示

坏笑.jpg

但是这个不用宏也可以取消隐藏的TAT,全选到格式里修改就出现了

其实什么样的都有破解方法,部分内容不能深度隐藏,工作表深度隐藏也可以通过改VBS取消隐藏

只能碰运气钓,你懂得

原文地址:https://www.cnblogs.com/xiaoxiaosen/p/13451947.html