如何彻底隐藏Excel2007的工作表

作者：iamlaosong

在工作中，我们会碰到有些Excel工作表不希望使用者看到，比如我做了一个单机版考试系统，其中一个工作表就是所有的试题和标准答案，这就需要将这个工作表隐藏起来。常规的隐藏工作表的方法却可以通过“格式”菜单中的“工作表”，但是选择“取消隐藏”命令就可以看到。

　　有一种方法可以彻底隐藏Excel2007工作表：在当前工作簿中的"Workbook_Open”事件中输入代码"Worksheets(“工作表名称”).Visible = 2”就可以将指定的工作表彻底隐藏起来了。 不过这种办法需要保存VBA代码，而且，如果禁止宏运行的，则这种隐藏不起作用。

　　其实这个程序运行一遍就可以了，运行过后，删除代码，保存工作表就可以了。由此想到既然如此，为什么写程序呢，直接改属性就可以了。方法如下：

1、进入VBA开发环境：菜单“开发工具”-“visual basic”

2、选择需要隐藏的工作表，下方显示该工作表的属性

3、点击最后一个属性“Visible”，选择属性值2，如下图所示

　　保存这个文件即可，需要显示该工作表时可再次进入开发环境，将属性值由"2”改为"-1”就可以了。

时间： 2024-11-08 19:57:11

如何彻底隐藏Excel2007的工作表的相关文章

excel批量取消隐藏工作表

按下"Alt+F11"键,在打开的"Microsoft Bisual Basic"窗口中,选择"插入——模块".,复制下面的代码,按F5键运行,就完成了批量取消隐藏工作表. Sub 批量取消隐藏工作表() Dim i As Integer For i = 1 To Worksheets.Count Worksheets(i).Visible = True Next End Sub 批量取消隐藏工作表代码二: Sub 批量取消隐藏工作表() For

excel中怎样批量取消隐藏工作表

excel中怎样批量取消隐藏工作表 按键盘上的Alt+F11,调出VBE对话框,然后双击左面的任何一个工作表的名称,然后将下列代码粘贴进去.然后点击工具栏上的绿色按钮运行一次即可. Sub unhide() For i = 1 To Sheets.Count Sheets(i).Visible = True Next i End Sub

EXCEL之利刃出鞘----VBA 彻底隐藏工作表

今天和大家分享的是隐藏工作表的方法.普通情况下,也是大家所熟知的方法,就是右键点击所要隐藏的工作表然后选择hide.操作如下 再找sheet2就不见了. 如果再显示呢,右键点击工作表标签,然后选择unhide 选择需要之前被隐藏的工作表以将其显示出来. 如上操作,我们隐藏工作不能达到例如 隐藏数据源,隐藏不想让其他人看到的数据的目的对不对. 下面我们介绍另一种隐藏工作表的方法,就是进入到vba编辑器,对对象工作表的属性进行操作. 首先,右键需要隐藏的工作表,然后点击view code  进入vb

PHPExcel 多工作表 导入

//参数初始化         $filePath = '';         if ($_FILES["file"]["error"] > 0) {             returnJSON(ERROR_INVALID, $_FILES["file"]["error"]);         }         $filePath = $_FILES["file"]["tmp_name&

工作表

Sub 新建工作表() Sheets.Add , , 2 自动命名 Sheets.Add.Name = "hello" 直接命名 End Sub Sub 删除工作表() Sheet1.DeleteSheets("hello").Delete on error resume nextapplication.displayalert = false 删除时屏蔽弹出框 End Sub Sub 移动工作表() Sheet3.Move , Sheet2 End Sub Sub

把多个工作簿的第一个工作表合并到一个工作簿的多个工作表

功能:把多个工作簿的第一个工作表合并到一个工作簿的多个工作表,新工作表的名称等于原工作簿的名称 Sub Books2Sheets() '定义对话框变量 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks.Add With fd If .Show = -1 Then '定义单个文件变量 Di

把多个Excel文件合并到一个Excel文件的多个工作表（Sheet）里

实现的功能是把多个Excel文件的第一个工作表(Sheet)合并到一个Excel文件的多个工作表里,并且新工作表的名称等于原Excel文件的文件名.开发环境Excel2007,但是Excel2003应该也能用,Excel2000似乎不能用.代码如下: '功能:把多个工作簿的第一个工作表合并到一个工作簿的多个工作表,新工作表的名称等于原工作簿的名称 新建的excel新表---书签sheet1--右击查看代码-复制代码进入---运行-选择需要合并的表--OKSub Books2Sheets()   

工作表怎么加密

工作表怎么加密 工作表反映了我们每天的工作情况,也是公司对员工的考核标准之一,当然工作表当中还有很多的行业机密.所以一般我们的工作表都只是自己和领导能够看到,大家都知道公司的电脑最怕黑客攻击,黑客攻击最坏的事情就是丢失文件,上次我阿门公司的电脑有一次遭遇了黑客,黑客将公司所有人的报表都发给老板,给钱就归还,不然就卖给同行,一般这类的黑客要的钱都不多,所以就花钱解决了,报警也没什么意思.时候老板找到我问为什么那些报表里没有我的,这个时候我想起来,我的工作表用护密文件加密软件加密过,哇瑟之前并没有想

【原创】如何将多个工作簿中相同格式的工作表合并到一个工作表中

如何将多个工作簿中相同格式的工作表合并到一个工作表中 Sub Books2Sheets() '定义对话框变量 Application.ScreenUpdating = False Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks.Add With fd If .Show = -1 The