查看: 8935|回复: 13
怎样的设置，能有选择性的批量隐藏和显示指定的工作表
阅读权限30
在线时间 小时
请各位老师们帮忙解决这个问题！
& & 这里设置8个按钮，分别对应于标签颜色或是编号进行操作。
点击隐藏或显示的按钮，那么对应工作表标签为红色的或是1的所有工表作执行隐藏或显示。
请各位老师看看，帮忙解决这个问题，谢谢！！
12:54 上传
点击文件名下载附件
99.69 KB, 下载次数: 93
阅读权限50
在线时间 小时
放在目录表代码栏
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 5 And Target.Column = 7 Then Sheets(&箱变&).Visible = True
If Target.Row = 5 And Target.Column = 9 Then Sheets(&箱变&).Visible = False
If Target.Row = 6 And Target.Column = 7 Then Sheets(&环网柜&).Visible = True
If Target.Row = 6 And Target.Column = 9 Then Sheets(&环网柜&).Visible = False
If Target.Row = 7 And Target.Column = 7 Then Sheets(&电站&).Visible = True
If Target.Row = 7 And Target.Column = 9 Then Sheets(&电站&).Visible = False
If Target.Row = 8 And Target.Column = 7 Then Sheets(&用户站&).Visible = True
If Target.Row = 8 And Target.Column = 9 Then Sheets(&用户站&).Visible = False
End Sub复制代码
阅读权限30
在线时间 小时
原帖由 白云2011 于
13:10 发表
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 5 And Target.Column = 7 Then Sheets(&箱变&).Visible = True
If Target.Row = 5 And Target.Column = 9 Then Sheets(&箱变&).Vi ...
白云老师：好像不行啊，帮我再看看，谢谢！
运行错误& 9&
阅读权限50
在线时间 小时
你要确定你有报表名字是&箱变&如果是其他请改为其他名字
Sheets(&箱变&).Visible = True
其他一样的.
阅读权限30
在线时间 小时
原帖由 白云2011 于
14:04 发表
你要确定你有报表名字是&箱变&如果是其他请改为其他名字
Sheets(&箱变&).Visible = True
其他一样的.
白云老师：
如附件中的标签颜色红色的部分全都是箱变
其他颜色对应其他名称
阅读权限30
在线时间 小时
另外：我要用控件中的按钮来实现控制
阅读权限50
在线时间 小时
想要多少个按钮都可以
(376.2 KB, 下载次数: 176)
14:47 上传
点击文件名下载附件
同一按钮中可以加入多个:
Sheets(&表名1&).Visible = True
Sheets(&表名2&).Visible = True
Sheets(&表名3&).Visible = True
Sheets(&表名4&).Visible = True
True是隐藏 False代表显示
阅读权限30
在线时间 小时
多谢白云老师指点，我试试看，如果不行，再请指教。谢谢！
阅读权限10
在线时间 小时
& & & & & & & &
Sheets(&表名&).Visible = True&&或 false
阅读权限30
在线时间 小时
原帖由 白云2011 于
14:47 发表
同一按钮中可以加入多个:
Sheets(&表名1&).Visible = True
Sheets(&表名2&).Visible = True
Sheets(&表名3&).Visible = True
Sheets(&表名4&).Visible = True
True是隐藏 False代表显示
再次麻烦白云老师：
动画教程中只隐藏一个&箱变台账1&的工作表
还有7个红色的工作表怎么一起隐藏
(&表名1&)这个括号内&表名&可以题写8个工作表名吗？
还是要每个工作表写一句这样的代码，
Sheets(&表名1&).Visible = True或 false
要写8句吗？谢谢！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师excel窗口的深度隐藏(没几个人会)
我的图书馆
excel窗口的深度隐藏(没几个人会)
隐藏excel窗口,就是打开excel文件一片灰,看不到excel表格内容和工作表界面,你会吗?
&&&&& 我会!!这有什么难的
&&&&&&&&& excel2003中,窗口菜单 -& 隐藏/取消隐藏
&&&&&&&&& excel2010中,视频选项卡 -& 隐藏/取消隐藏
&&&&&& 可是...你可以轻易隐藏,别人也可以轻易取消隐藏!!
&&&&&& 我们今天学的可是很少人知晓的奇招,不信你学会了找你同事来打开文件,保证难为他一头汗也看不到表格.哈哈!!
&&&&&&& 闲话少说,入正题.我们开设置隐藏窗口的操作.
&&&&&&& 步骤1:&打开需要隐藏窗口的excel文件,按alt+f11组合建打开visual basic窗口,在窗口左上角我们会看到有一个工程窗口,&工程窗口找到并单击我们要隐藏的文件名. 然后再点击Miscrosoft Excel对象,会打开excel工作表列表,显示要隐藏文件的所有工作表,另外还会有一个代表本文件的thisworkbook的项目
&&&&&&& 步骤2:& 双击Thisworkbook,在下面的会显示文件的属性,然后找到addin选项,点击后面的false会打开一个下拉选项,把false改成True即可,如下图所示. 再看看隐藏文件的工作表界面,已隐藏不见了
&&&&&&&& 如果要取消隐藏, 首先要打开这个隐藏的文件,然后按alt+f11打开visual baisc窗口, 接下来重复步骤1,2, 只是把addin选项的值true改成false即可显示工作簿窗口.
&&&&&&&&&如果同学们只是看图文无法操作完成,可以点击下面的原文链接,在原文中兰色录制了一个动画演示.
[转]&[转]&[转]&
喜欢该文的人也喜欢查看: 5319|回复: 6
一个工作表的一些列被深度隐藏，如何打开
阅读权限20
在线时间 小时
今天下载了一个工作表，撤销了他工作表保护和工作簿保护，但是除了他本来就显示的一些列之外其余的全部都不能看到，更不能选取，请教这是如何做到的，该如何撤销这样的保护？？？document.body.clientWidth*0.5) {this.resized=this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />
[此贴子已经被作者于 18:59:01编辑过]
(4.61 KB, 下载次数: 8)
18:58 上传
一个工作表的一些列被深度隐藏，如何打开
阅读权限70
在线时间 小时
选中O列，向右拉，右键，取消隐藏
阅读权限20
在线时间 小时
阅读权限20
在线时间 小时
& & & & & & & &
关键就是O列后面不可选定了，往后拉什么也没有，但在R列确实有文字内容。将Scrollarea清空也没有用，设置成a1:bb256也不起作用
[此贴子已经被作者于 19:24:58编辑过]
阅读权限95
在线时间 小时
选择O列直接往右拉，就表示后面的列都已经选中（虽然看不见）。如果还不会，那就全选表格，然后再取消隐藏。
阅读权限20
在线时间 小时
今天才发现我是如此的笨！！谢谢，解决了
阅读权限50
在线时间 小时
Sub 取消深度隐藏指定工作表()
Sheets(&1&).Visible = -1
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师excel窗口的深度隐藏(没几个人会)_Excel精英培训_传送门
excel窗口的深度隐藏(没几个人会)
隐藏excel窗口,就是打开excel文件一片灰,看不到excel表格内容和工作表界面,你会吗?
我会!!这有什么难的
excel2003中,窗口菜单 -
隐藏/取消隐藏
excel2010中,视频选项卡 -
隐藏/取消隐藏
可是...你可以轻易隐藏,别人也可以轻易取消隐藏!!
我们今天学的可是很少人知晓的奇招,不信你学会了找你同事来打开文件,保证难为他一头汗也看不到表格.哈哈!!
闲话少说,入正题.我们开设置隐藏窗口的操作.
步骤1: 打开需要隐藏窗口的excel文件,按alt+f11组合建打开visual basic窗口,在窗口左上角我们会看到有一个工程窗口, 工程窗口找到并单击我们要隐藏的文件名. 然后再点击Miscrosoft Excel对象,会打开excel工作表列表,显示要隐藏文件的所有工作表,另外还会有一个代表本文件的thisworkbook的项目
双击Thisworkbook,在下面的会显示文件的属性,然后找到addin选项,点击后面的false会打开一个下拉选项,把false改成True即可,如下图所示. 再看看隐藏文件的工作表界面,已隐藏不见了
如果要取消隐藏, 首先要打开这个隐藏的文件,然后按alt+f11打开visual baisc窗口, 接下来重复步骤1,2, 只是把addin选项的值true改成false即可显示工作簿窗口.
如果同学们只是看图文无法操作完成,可以点击下面的原文链接,在原文中兰色录制了一个动画演示.
觉得不错，分享给更多人看到
Excel精英培训 微信二维码
分享这篇文章
Excel精英培训 最新文章查看: 7240|回复: 8
[操作与技巧]
设置取消隐藏工作表的密码
初级二, 积分 231, 距离下一级还需 19 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
工作中经常遇到对外隐藏属于公司机密的工作表,请问如何设置“取消隐藏工作表的密码”？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
这样是否符合要求：设置工作表隐藏之后，然后设置“保护工作簿”，勾选结构，输入密码。这样要取消隐藏，就需要先取消保护工作簿。
当然，仍然有破解的办法。
初级二, 积分 231, 距离下一级还需 19 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
行啊,谢谢2楼.
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
依照2楼的方法设置保护后，可以另存为二进制文件，防止轻易被人解密，加强保护。
未命名.jpg (36.85 KB, 下载次数: 0)
设置取消隐藏工作表的密码
21:35 上传
初级二, 积分 231, 距离下一级还需 19 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
请问2003版能另存为二进制工作文件吗?
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
请问2003版能另存为二进制工作文件吗?
sam.tan 发表于
在回答你这个问题前，先说一张图吧
BIFF对照.jpg (77.89 KB, 下载次数: 0)
设置取消隐藏工作表的密码
19:27 上传
BIFF，即 Binary Interchange File Format的缩写，就是二进制文件转换格式
& &&&可以看到在2003中.xls后缀的文件已经是二进制格式了，只不过biff版本和07有所区别，从而不具备新的文件格式.xlsb的特性（用于大型或复杂工作簿的分段压缩文件格局的二进制版本，可用于获得最好机能和向后兼容性）。
& & 现在回到你的提问，答案不言而喻了，2003能保存二进制文件格式，但局限于BIFF8版本，而不能保存成.xlsb的BIFF12版本。
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
若想多了解一些2007新特性，比如xml知识，本站中已有美文：
[综合应用] 细品RibbonX(5)：开放的XML文件格式
初级二, 积分 231, 距离下一级还需 19 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
多谢#6楼的详细讲解...
是否也可以考虑使用“深度隐藏+锁定工程”呢？
参考这篇文章
http://blog.sina.com.cn/s/blog_af995ae.html&
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
多谢#6楼的详细讲解...
是否也可以考虑使用“深度隐藏+锁定工程”呢？
参考这篇文章
http://blog.sina.com.cn/s/blog_af995ae.html
站长推荐 /1
40集公式入门动画教程，一天带你打好公式的基础。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by}