总结1打开含有VBA的Excel文件2点击“开发工具”中的“VisualBasic”3输入VBA保护密码4双击相应的工作表5就可以查看VBA代码了。

在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签，在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境请点击输入图片描述 24 在任意一个模块的代码窗口中输入以下的代码Sub xyfSheet1Visible =。

3使用vba则不需要这么麻烦，可以在任意选择单元格后，直接点击运行代码，则可以隐藏该单元格所在的行4我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码Sub HideRowDim iRow As。

Sheet的Visible属性可以显示是否隐藏，0是隐藏，1没隐藏，例如下面的代码可以查看Sub xxxMsgBox Sheet1Visible End Sub 下面的代码可以隐藏工作表Sheet1Visible=0 显示隐藏工作表的语句作为课堂练习，你写写看。

被隐藏了excel丢失vba项目，是excel版本的差异造成VBA中的模块无法正常读取，被隐藏了选定文件，右键－属性，将文档属性中的只读选项的勾去掉后再打开文件修改，修改后即可保存。

在写代码窗口，单击工具TVBAproject属性E保护勾选查看时锁定工程V输入密码后确定关闭代码窗口，保存工作表，关闭excel，在打开看看没密码能不能看见代码或插入模块。

设置隐藏显示是修改range的Hidden属性，这个你的代码里面就有例子，一般有下面的三种使用方法一取消隐藏 ColumnsquotBFquotHidden = False 二设置隐藏 ColumnsquotBFquotHidden = True 三反转如果原本隐藏就。

NextEnd SubIf str5 = quotAIRCquot Then Sheet1Visible =1 #39显示工作表 你是试一下这样改或者改成 善良的猪头3 If str5 = quotAIRCquot Then Sheet1Visible =true #39显示工作表这样的代码，试试。

如果对隐藏的表格进行数据处理，根本不用选择啊直接引用处理就行了，如worksheet2range=8848 ，如果确实需要激活并选择的话，可以把表格显示出来，处理完再隐藏如果这个过程不想被展现，可以在这个阶段把屏幕更新关闭。

新建excel，ALT+F11插入以下代码，按住F8执行，浏览到有VBA工程密码的excel文件，确定后，再按F5就可以了Private Sub VBAPassword#39你要解保护的Excel文件路径 Filename = ApplicationGetOpenFilenamequotExcel文件*xls。

您可以使用VBA代码隐藏Excel文档的标题栏以下是示例代码Private Declare Function FindWindowA Lib quotuser32quot _ByVal lpClassName As String， ByVal lpWindowName As String As Long Private Declare Function。

以填写数据的区域B5G99为例1按Alt+F11打开代码编辑器2在左侧栏中双击需要添加代码的工作表3在右侧输入或粘贴代码4如图，你只修改两个参数即可，其他代码不用动5改好后关闭代码编辑器即可Private。

点击窗口界面，然后重置窗口界面，隐藏的菜单栏就能显示出来了在编写VBA代码的时候会实现自动隐藏和显示任意Excel文档中的指定工资表，还可以利用快捷键Alt+F8调出运行宏窗口，选择“隐藏名称”，然后单击“执行”按钮来操作。

ShapesRangeArrayquot图片 2quotVisible = msoTrueEnd IfEnd Sub 代码贴在本表的代码窗中，不是模块中图片 2的名称请按实际名称修改，选中图片，看下地址栏中显示的名称是啥就改成啥，比如”图片 10”。

如果您用的是 2007 及以后的版本打开 972003 格式的文件，那么您的模块很有可能会丢失的，要保证在 972003 格式的文件中编写的模块能够在高版本的 Excel 中打开并且 100% 不会丢失代码，您可以先导出原来编写的模块。

Dim FileName As String FileName = ApplicationGetOpenFilenamequotExcel文件*xls *xla，*xls*xlaquot， ， quotVBA破解quotIf FileName = CStrFalse Then Exit Sub Else VBAPassword FileName， False End If。