VBA：隐藏sheet表

最新推荐文章于 2024-05-15 18:05:02 发布
最新推荐文章于 2024-05-15 18:05:02 发布
阅读量1.6k 收藏 1
点赞数
分类专栏： ExcelVBA 文章标签： excel 开发语言 Powered by 金山文档
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_51465537/article/details/129362613
版权

如何隐藏sheet表：

1、使用 xlSheetHidden：可以在Excel中手动显示或取消隐藏

2、使用xlSheetVeryHidden：无法在Excel中手动显示或取消隐藏，只能通过VBA代码可见或隐藏

Dim wsLocal As Worksheet
'建表方式1
Set wsLocal = ThisWorkbook.Sheets("sheet1")
'建表方式2
'Set wsLocal = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
'方法1：可以在Excel中手动显示或取消隐藏
wsLocal.Visible = xlSheetHidden
'方法2：无法在Excel中手动显示或取消隐藏，只能通过VBA代码可见或隐藏
'ThisWorkbook.Sheets("sheet1").Visible = xlSheetVeryHidden

是小爱呀
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
VBA示例之 求人不如自已动手 取消隐藏工作表（包括vba Project工程保护的)
10-26
VBA示例之 求人不如自已动手 取消隐藏工作表（包括vba Project工程保护的)，供初学者参考，大牛勿进~~~~~~~
VBA脚本查找跳转到指定名字Sheet
04-12
通过在主表输入框模糊查询表明，显示包含相关名的Sheet，除了主表外不匹配的表都会被隐藏
【VBA编程】处理excel表格让满足条件的sheet页被隐藏或取消隐藏
yuhoujiangnan2011的专栏
05-17 1547
Public Sub 隐藏B() ' ' 隐藏B Macro ' 宏由 Administrator 录制，时间: 2022/05/14 ' Dim total As Integer ' 整型变量，存放总行数 Dim counter As Integer ' 整型变量，for循环变量，每循环一次该值加1 Dim st$ ' 字符串变量，存放每个sheet页名字 Range("A1").CurrentRegion.Select '遍历当前整个sheet页 tot...
vba 批量隐藏excel中的sheet
nbspzs的专栏
10-27 283
【代码】vba 批量隐藏excel中的sheet。
Excel基础知识（3）：工作表两种隐藏方法，第2种只能进入VBA解决
excel vba sas python的专栏
11-19 2592
工作中，某些保存有部门列表、工资基数、系数等基础的、轻易不能被修改的内容，但又需要在函数或公式中调用，通常会单独存放在一张sheet工作表中，然后将这个工作表隐藏，避免误修改。01 方法1最常用的方法是在工作表标签上右击，在弹出的菜单中选择“隐藏”：取消上述隐藏的工作表，同样还是在工作表标签上右击，在弹出的菜单中选择“取消隐藏”。02 方法2按ALT+F11快捷键，进入VBA的界面，左侧工作表的...
【VBA】隐藏正在使用的工作簿
ajsyipsc40270的博客
08-11 839
正在使用的工作簿，嫌窗口太多，不利于操作，想把窗口隐藏，该怎么做呢？Public Sub 隐藏正在使用的工作簿() Application.Visible = False MsgBox "已经隐藏工作簿！" MsgBox "下面即将还原正在使用的工作簿!" Application.Visible = True End Sub点击运行程序后，出现如下结果接着...
EXCEL之利刃出鞘----VBA 彻底隐藏工作表
weixin_34150503的博客
06-29 1341
今天和大家分享的是隐藏工作表的方法。普通情况下，也是大家所熟知的方法，就是右键点击所要隐藏的工作表然后选择hide。操作如下再找sheet2就不见了。如果再显示呢，右键点击工作表标签，然后选择unhide选择需要之前被隐藏的工作表以将其显示出来。如上操作，我们隐藏工作不能达到例如 隐藏数据源，隐藏不想让其他人看到的数据的目的对不对。下...
ExcelVBA之sheet完全隐藏
soga235的博客
05-29 2391
问题： 使某些Excel的文档不直接可见，除非有密码，该命令和隐藏命令不一样，不输入正确密码，根本不知道还有其他sheets如机密文档sheet：如下文档只可见普通文档，机密文档完全不可见，不是通过取消隐藏来实现可见的。 代码： Private Sub Worksheet_Activate() If Application.InputBox("请输入操作权限密码:") = 123 Then Range("A1").Select Sheets("机密文档").Visible = xlSheetV.
ExcelVBA之 sheet隐藏
soga235的博客
05-28 1707
一般保护工作表采取的方法是用 EXCEL 菜单中的"保护"命令，有时候这还不够，比如一些机密文件要让某些使用者完全无法看到，但又需要他来操作工作簿中的其他表，应该怎么办呢？ 此时可以打开 VBA 编辑器，打开"工程资源管理器"，双击该工作表，现在出现的是设置该表的属性的编辑窗口，单击窗口左上的下拉列表框，选择 worksheet ,这时再从该窗口右上方的列表框中选择Active("激活"），这时自动显示如下的语句块： Private Sub Worksheet_Activate() If Applic
vba 获取数据所有的行_如何利用VBA代码进行工作表的隐藏及表格的插入方法
weixin_39676348的博客
12-14 656
分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，NO.133-NO.135，内容是：EXCEL工作表的隐藏、在工作表中一次插入多行表格的方法等内容。VBA过程代码133：EXCEL工作表的隐藏Sub mynz()For Each sh In ThisWorkbook.Sheets If sh.Name <> "空白" Then ...
vba单元格多选模板.xls
11-06
excel单元格点击可多选数据模板，利用vba编程，在隐藏sheet页面存入数据，可用于编程开发当作模板读取写入数据，方便操作，需要office
VBA踩坑记录
01-08
1.隐藏sheet 用selection会报错。 2.动态添加事件方法 参数需要sheet页ID，不能用sheet名定位，只能用组件数+1获取。 3.涉及增删sheet的时候，慎用activesheet。 4.动态填充数据，仅有1行数据时 用End获取行尾列尾...
excel VBA登陆实验
11-15
Set myarea = Sheets("sheet1").Columns(1).Find(key) If myarea.Rows.Count > 0 Then If myarea.Offset(0, 1).Value = TextBox_un.Text Then MsgBox "登陆成功！" login.Hide '隐藏窗口 Else MsgBox "用户名或...
VBA  如何发现EXCEL工作簿里是否有深度隐藏工作表
奔跑的犀牛先生
02-03 2337
1 如果有的工作表sheet设置了 visible属性为 xlsheetVeryHide visible属性，设置为 xlsheetVeryHide -2 不光在excel 列表里 无法看到 在sheet表右键点菜单，也不会出现 取消隐藏，也就是无法通过 菜单呼出 2 方法1：在VBE编辑器内能看到深度隐藏的worksheet 3 方...
EasyExcel进阶教程
最新发布
HowYouth的博客
05-15 660
EasyExcel的表头合并、动态表头实现、表头样式自定义
Power query与Excel的区别，优势？
CubeDance的博客
05-14 455
Power Query是Microsoft Excel的一个强大数据导入、转换和自动化的插件工具，它在Excel 2010之后的版本中被发布出来，随着时间的发展，功能不断增强。
怎样计算Excel一列数值中十位数为5的个数？
Niu929的博客
05-14 654
有一列数字，可能正数也可能是负数，有可能有小数，要怎么计算这列数字中十位数为5的数量有多少个？
Excel提取某一列的唯一值
呆萌的代Ma
05-15 189
点击【筛选】（【高级筛选】），参数里： - 列表区域：为需要选择唯一值的那一列 - 复制到：生成唯一值的目标区域
Excel IF 公式 简要说明
ljfblog的专栏
05-15 223
可能的值：A1, 1, 0, true, false,A1>A2, 或者嵌入另一个公式，如or(A1,A2),and(A1,A2)代表的是条件不成立时，当前单元格会显示的值,如："不成立","不及格","否"代表的是条件成立时，当前单元格会显示的值,如："成立","及格","是"要直接获得的字符值，用英文双引号，引用的单元格或者数字，可以直接输入。
如何使用VBA拆分工作表
05-15
你可以使用 VBA 在 Excel 中拆分工作表。下面是一个简单的示例代码，它将一个工作表拆分成多个工作表，每个工作表包含原始工作表中的特定行数。 ``` Sub SplitWorksheet() Dim ws As Worksheet Dim newWs As Worksheet Dim rowCounter As Long Dim rowCount As Long Dim splitCount As Long '设置每个新工作表包含的行数 rowCount = 100 '选择要拆分的工作表 Set ws = ThisWorkbook.Sheets("Sheet1") '计算总行数 rowCounter = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row '计算拆分后的工作表数量 splitCount = rowCounter / rowCount '循环创建新工作表 For i = 1 To splitCount Set newWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) newWs.Name = "Sheet" & i '复制数据到新工作表 ws.Rows((i - 1) * rowCount + 1 & ":" & i * rowCount).Copy newWs.Range("A1") Next i '隐藏原始工作表 ws.Visible = False End Sub ``` 在上面的代码中，你需要将 `Sheet1` 替换为要拆分的工作表的名称，将 `rowCount` 替换为每个新工作表包含的行数。然后运行该代码即可拆分工作表。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值