2390人阅读
excel应用（85）
作者：iamlaosong
在工作中，我们会碰到有些Excel工作表不希望使用者看到，比如我做了一个单机版考试系统，其中一个工作表就是所有的试题和标准答案，这就需要将这个工作表隐藏起来。常规的隐藏工作表的方法却可以通过“格式”菜单中的“工作表”（或者右击工作表名称），选择“取消隐藏”命令就可以看到。&
　　有一种方法可以彻底隐藏Excel2007工作表：在当前工作簿中的&Workbook_Open”事件中输入代码&Worksheets(“工作表名称”).Visible = 2”就可以将指定的工作表彻底隐藏起来了。 不过这种办法需要保存VBA代码，而且，如果禁止宏运行的，则这种隐藏不起作用。
　　其实这个程序运行一遍就可以了，运行过后，删除代码，保存工作表就可以了。由此想到既然如此，为什么写程序呢，直接改属性就可以了。方法如下：
1、进入VBA开发环境：菜单“开发工具”-“visual basic”
2、选择需要隐藏的工作表，下方显示该工作表的属性
3、点击最后一个属性“Visible”，选择属性值2，如下图所示
　　保存这个文件即可，需要显示该工作表时可再次进入开发环境，将属性值由&2”改为&-1”就可以了。 如需进一步增加保密性，就需要在VBAProject中增加保护密码并勾上“查看时锁定工程”，这样，不知道密码就无法进入开发环境修改工作表属性了。需要注意的是，增加了密码保护后，一定要插入一个模块（或者像前面说的那样在事件中写点代码，总之就是弄点VBA的东西，否则，那个VBA工程里面没货，系统是不会帮你保存密码的），也不用写什么代码，然后另存为“启用宏的工作簿”，即扩展名为.xlsm文件，否则，你那些保护密码无法保存。
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：1002140次
积分：10112
积分：10112
排名：第1309名
原创：220篇
转载：58篇
评论：155条
(2)(9)(6)(7)(8)(6)(5)(5)(7)(2)(5)(4)(4)(7)(8)(4)(6)(6)(6)(7)(8)(5)(7)(4)(4)(9)(6)(5)(7)(9)(8)(6)(3)(6)(2)(4)(2)(3)(2)(1)(1)(3)(1)(1)(3)(3)(1)(1)(1)(1)(2)(1)(1)(1)(2)(3)(4)(2)(3)(2)(2)(5)(1)(1)(1)(1)(4)(1)(1)(3)Excel隐藏工作表有普通隐藏工作表和深度隐藏工作表
为何要隐藏工作表？
　　先说，为何需要隐藏EXCEL工作表？譬如，咱们机构经常做题库，试题和答案分别在不同的工作表，其中的标准答案这个工作表就需要隐藏起来。
怎么隐藏工作表？
　　普通隐藏方法：执行&开始/格式/可见性/隐藏工作表&，可以隐藏当前工作表。
　　或者在需要隐藏的目标工作表标签，右击，弹出的快捷选择&隐藏&命令，即可隐藏目标工作表。若要取消隐藏，在下图的快捷中选择&取消隐藏&即可。
　　岂不知如此隐藏工作表，对略懂EXCEL的人来说，差不多是形同虚设，使用相应的取消隐藏命令就可以将工作表显示出来。
做得再完善点：
　　若要对隐藏的工作表进一步保护，执行&审阅&&保护工作簿&。
　　保护工作簿之后，&隐藏&和&取消隐藏&命令将失效，变为灰色不可用。
当一回高手：
　　我们一起冒充一次高手，使用vba隐藏工作表代码完成深度隐藏工作表。
　　按下ALT+F11，打开VBA编辑器，在&工程&面板中选择要隐藏的工作表，并在&属性&面板中设置&Visible&属性值为&2-xlSheetVeryHidden&。
　　说明：&Visible&属性值-1、0、2分别代表可见、隐藏和绝对隐藏。比如设置为0-xlSheetHidden则为普通隐藏，可通过&格式/工作表/取消隐藏&取消隐藏工作表。）　　
　　报告：我EXCEL里面没有找到&工程&和&属性&窗格肿么办？
　　凉拌！如果没有开启，在&视图&菜单中选择&工程资源管理器&和&属性窗口&来开启哈！
　　上面步骤操作完毕，按下CTRL+S保存，关闭VBA编辑器，返回EXCEL界面，可以看到隐藏的工作表真的看不到了，实现了深度隐藏工作表。
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------
下一篇：没有了
为何要隐藏工作表？ 先说，为何需要隐藏EXCEL工作表？譬如，咱们机构经常做题库，试题...
本文我们巧妙的使用Excel排序来完成excel删除空白行。 今天我们就一起来玩玩使用Excel...
excel打开是乱码怎么办?该如何解决呢?打开excel遇到乱码也是很常见的现象，不要立刻把...
关于Excel里面正负数使用不同的颜色的表示两种方法，主要使用到了自定义格式和条件格...
Office 2013版开始新增启动界面，多出了下面如图所示的画面，启动Excel2013，默认都会...
关于获取Excel当前文件路径有三种方法：信息函数CELL、信息面板、页面布局视图来实现...※※※※大神求解，如何用VBA隐藏符合条件的工作表？※※※※_excel吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：133,744贴子：
※※※※大神求解，如何用VBA隐藏符合条件的工作表？※※※※收藏
Sub 隐藏标签()Sheets(&Sheet2&).Visible = FalseSheets(&Sheet3&).Visible = FalseSheets(&Sheet4&).Visible = FalseEnd SubSub 显示标签()Sheets(&Sheet2&).Visible = TrueSheets(&Sheet3&).Visible = TrueSheets(&Sheet4&).Visible = TrueEnd Sub※目前我是用这种方式来隐藏和显示指定的工作表的，这里想请教一下大神么，有没办法做到“隐藏符合条件的工作表”。例如：（以下是工作表的标签名）【工作】【学习】『娱乐』『旅游』【补习】然后隐藏显示所有有这个“【”符号的工作表，“『”符号的工作表不变动。
[SALOON索龙]服装整烫及配套设备的一次革命!!!
可以，if sht.name like &*【*& or sht.name like &*『*& thensht.visible=falseend ifMS Office办公技能交流群 欢迎吧
Sub 隐藏所有标签()Dim Sht As Worksheet'声明sht变量为工作表变量For Each Sht In Worksheets'遍历所有工作表If Sht.Name Like &*【*& Or Sht.Name Like &*『*& ThenSht.Visible = FalseEnd IfNextEnd Sub
Sub 工作()Dim Sht1 As WorksheetFor Each Sht1 In WorksheetsIf Sht1.Name Like &*【*& ThenSht1.Visible = False'隐藏包含【的工作表End IfNextDim Sht2 As WorksheetFor Each Sht2 In WorksheetsIf Sht2.Name Like &*『*& ThenSht2.Visible = True'显示包含『的工作表End IfNextEnd Sub
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或查看: 747|回复: 5
如何按条件自动隐藏和取消隐藏工作表
阅读权限10
在线时间 小时
就是当sheet1中A1单元格为“隐藏”时，隐藏sheet2；当sheet11中A1单元格为“取消隐藏”时，取消隐藏sheet2。以下语句如何修改，请大神帮帮忙！或者其他编程也行
Sub 隐藏()
If Sheet1.Range(&F1&) = &隐藏& Then
& & Sheet2.Visible = xlSheetHidden
& & End Sub
Sub 显示()
& & Sheet2.Visible = xlSheetVisible
阅读权限50
在线时间 小时
Sub 隐藏或取消隐藏()
& & If Sheet1.Range(&A1&) = &隐藏& Then
& && &&&Sheet2.Visible = xlSheetHidden
& & End If
& & If Sheet1.Range(&A1&) = &取消隐藏& Then
& && &&&Sheet2.Visible = xlSheetVisible
& & End If
阅读权限10
在线时间 小时
Sub 隐藏或取消隐藏()
& & If Sheet1.Range(&A1&) = &隐藏& Then
& && &&&Sheet2.Visible = xlSheetHidde ...
您好，1file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/msohtmlclip1/01/clip_image002.gif&&&&我求助的是:在这里设置一个按钮,然后编写VBA代码,实现隐藏和取消隐藏工作表&表一&和&表二&隐藏和取消隐藏都用这一个按钮,当按钮上的字是隐藏时,点击这个按钮即刻将&表一&,&表二&隐藏起来,同时按钮上的字应显示&取消隐藏&,再点击按钮时,提示在&F1&单元格输入密码(您可将密码设置为1111)输入密码后再点击按钮,即刻将&表一&和&表二&取消隐藏按钮的字又应该显示&隐藏&了不知道我叙述清楚没有,请各位老师赐教,万分感谢!!!我现在不想要上面密码部分，如何修改以下代码
Private Sub CommandButton1_Click()
mandButton1.Caption = &隐藏& Then
& & Sheet2.Visible = xlSheetHidden
& & Sheet3.Visible = xlSheetHidden
& & Me.CommandButton1.Caption = &取消隐藏&
Dim aaa As String
& & aaa = InputBox(&显示表格需要提供密码，请输入密码：&, &取消隐藏&)
& && &&&If Len(aaa) = 0 Then
& && && && &Exit Sub
& && &&&End If
& & If aaa && Sheet1.Range(&F1&).Value Then& &&&'这里你可以指定一个存储密码的单元格，或指定某个密码。
& && &&&MsgBox &您输入的密码有误，系统终止！&
& && &&&Exit Sub
& & End If
& & Sheet2.Visible = xlSheetVisible
& & Sheet3.Visible = xlSheetVisible
& & Me.CommandButton1.Caption = &隐藏&
阅读权限10
在线时间 小时
Sub 隐藏或取消隐藏()
& & If Sheet1.Range(&A1&) = &隐藏& Then
& && &&&Sheet2.Visible = xlSheetHidde ...
你好，我求助的是:在表中设置一个按钮,然后编写VBA代码,实现隐藏和取消隐藏工作表&表一&和&表二&，隐藏和取消隐藏都用这一个按钮,当按钮上的字是隐藏时,点击这个按钮即刻将&表一&,&表二&隐藏起来,同时按钮上的字应显示&取消隐藏&,再点击按钮时,提示在&F1&单元格，输入密码。(您可将密码设置为1111)输入密码后再点击按钮,即刻将&表一&和&表二&取消隐藏，按钮的字又应该显示&隐藏&了。
但现在我想把密码那一部分删除，如何修改以下代码。
Private Sub CommandButton1_Click()
mandButton1.Caption = &隐藏& Then
& & Sheet2.Visible = xlSheetHidden
& & Sheet3.Visible = xlSheetHidden
& & Me.CommandButton1.Caption = &取消隐藏&
Dim aaa As String
& & aaa = InputBox(&显示表格需要提供密码，请输入密码：&, &取消隐藏&)
& && &&&If Len(aaa) = 0 Then
& && && && &Exit Sub
& && &&&End If
& & If aaa && Sheet1.Range(&F1&).Value Then& &&&'这里你可以指定一个存储密码的单元格，或指定某个密码。
& && &&&MsgBox &您输入的密码有误，系统终止！&
& && &&&Exit Sub
& & End If
& & Sheet2.Visible = xlSheetVisible
& & Sheet3.Visible = xlSheetVisible
& & Me.CommandButton1.Caption = &隐藏&
阅读权限50
在线时间 小时
& & & & & & & &
Private Sub CommandButton1_Click()
& & mandButton1.Caption = &隐藏& Then
& && &&&Sheet2.Visible = xlSheetHidden
& && &&&Sheet3.Visible = xlSheetHidden
& && &&&mandButton1.Caption = &取消隐藏&
& && &&&If Sheet1.Range(&F1&).Value = &1111& Then&&
& && && && &Sheet2.Visible = xlSheetVisible
& && && && &Sheet3.Visible = xlSheetVisible
& && && && &mandButton1.Caption = &隐藏&
& && &&&Else
& && && && &MsgBox &您输入的密码有误，系统终止！&
& && &&&End If
& & End If
阅读权限50
在线时间 小时
上傳代碼需要審核，改上傳附件。
13:12 上传
点击文件名下载附件
10.54 KB, 下载次数: 11
最新热点 /1
只要3分钟，完成微软安卓版Office体验问卷，微软官方定制好礼就送到你面前：证书、卫衣、电脑内胆包等,好礼多，中奖几率高，极具纪念意义!
嘘，一般人，我不告诉他。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}