利用vba代码实现自动隐藏、显示指定excel工作表

《利用vba代码实现自动隐藏、显示指定excel工作表》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、利用VBA代码实现自动隐藏、显示指定ExcelX作表摘要：编写vbd代码实现自动隐藏、显示任意excel文档中的指定工作表。关键词：隐藏工作表显示工作表visible属性vba代码日常工作中我们会接触各种各样的数据。随着计算机的普及，人们都会使用这种现代化的工具处理数据。在计算机技术中专门有专业的数据库软件来管理数据，这其中有ibm的db2、甲骨文的oracle>微软的sqlserver>unix系统用的informix>免费的mysql等等。这些都是功能强大并且得到用户广泛应用和认可的专业数据库软件。但是它们都有一个特点就是需耍较长时间的学习才能掌握，这并不利用计算机水平一

2、般乂需要处理各种日常工作数据的用户。其实对付数据量不是非常大的口常工作，我们几乎每个人都在用的excel就足够了。因此excel成了我们日常办公的数据处理软件的首选，很多中小企业的销售、财务、库房管理等都在使用它来完成数据的处理。但是excel工作表在默认情况下是全部开放的，只要打开文件任何用户都可以任意操作。这时如果你既要共享excel数据分析处理的结果，又不想让对方看见具体数据，如何保密就成了问题。例如：利用单位月费用报销的明细数据制作了各部门报销费用的比较图，希望发给各部门查看但又不能让对方看到具体数据项。这就需要隐藏“原始数据”所在数据表，只显示“各部门报销费用比较图

3、”所在的数据表。有下面就这个问题给出几种解决方法：1直接隐藏工作表“右键单击指定工作表标签”一“隐藏”，这样重要的工作表就被隐藏起来了。虽然该方法简单易行，但是却存在一个致命弱点，他人只需右键单击任意工作表标签一“取消隐藏”，就会重现被隐藏的工作表。2隐藏工作表并保护工作簿按照上面的方法将工作表隐藏，然后通过设置“保护工作簿一结构”于老可以选择添加口令况。这样操作后被隐藏的工作表将无法再显示，只能先取消“保护工作簿”才能取消隐藏。但是这个方法也有缺点，就是当“保护工作簿一结构”时，对于工作表的其它操作也无法进行，比如：插入、删除、重命名等。3visualbasic编辑器修改属

4、性3.1“右键单击工作表标签”->“查看代码”，打开visualbasic编辑器窗口，在左侧可以看到“工程”和“属性”面板。3.2在“工程”面板中显示了该excel文档的所有工作表。选择要隐藏的工作表，然后在“属性”面板中设置"visible"的参数为2-xlsheetveryhiddeno这样工作表就被隐藏了，而且此时“取消隐藏”功能显示为灰色不可用。但是别人只要知道这个方法，要显示工作表时只要再修改属性“visible”的参数为-1-xlshcctvisiblc就可以了。3.3为了防止无权用户的修改，我们需要设置口令。打开"visualbasic编辑器窗口”一"工具fvb

5、aproject属性一保护”选项卡，勾选“查看时锁定工程”，并设置查看工程属性的密码，单击“确定”按钮。3.4按下ctrl+s保存文件，返回excel界面并且关闭文件。下一次再打开该excel文档时,只要打开“visualbasic编辑器窗口”就会立刻提示"vbaproject密码”，只有输入正确密码才能继续操作。如此一来，即便有人知道这种操作方法，没有密码的话也不能显示出隐藏的工作表，因此大大增强了excel的安全性能。注意：每个excel文档中必须至少有一个工作表的visible属性值为"1-xlsheetvisible”,即至少有一个工作表是显示的。4vba代码实现4.

6、1新建excel文件一“右键单击工作表标签”一查看代码，打开"visualbasic编辑器窗口”一工程-^右键单击vbaprojectbookl况一插入f模块一双击新建的“模块1”一在打开的窗口填写如下代码。说明：这一系列操作会生成3个宏hide、show、showall,它们对应的功能如下“隐藏指定工作表”、“显示指定工作表”、“显示全部工作表”。这段代码会将“password”为名称的工作表中，a列第1-10行单元格内容视为要被隐藏的工作表名称，并将它们高级隐藏。subhide()fori=1to10，设定判断ITO行a二sheets(“password”)・cells(

7、i,1)'把password表i行1列单元格内容放入变量aifathenworksheets(a).visible二-1elseendifnextendsub这段代码会将文档中全部工作表显示subshowall()dimwsasworksheetforeachwsinsheetsws.visible二Tnextwsendsub4.2按下ctrl+s保存文件一右键单击“模块-导出文件f指定文件名和路径保存为.bas文件。4.3当有excel文档需要隐藏部分工作表时。“右键单击工作表标签”一查看代码，打开“