llgd.net
当前位置:首页 >> ExCEl vBA 隐藏模块 >>

ExCEl vBA 隐藏模块

新建一个EXCEL文件,然后把下面这段代码写到这个工作簿里面: Sub Show_All_the_sheets() For Each sh In ActiveWorkboo...

在写代码窗口,单击【工具(T)】【VBAproject属性(E)...】【保护】勾丫查看时锁定工程(V)】输入密码后【确定】关闭代码窗口,保存工作表,关闭excel,在打开看看没密码能不能看见代码或插入模块

怎么知道有隐藏模块?能不能提供相关提示信息?

可能是由于如下的原因引起的。一、错误的宏代码 表格中可能引用到宏,要么是宏代码有错误,要么是宏根本就不存在,或者是宏代码中所引用的模块不存在所引起的。遇到这种情况,最好的办法就是把宏给删除。方法很简单:按下组合键 Alt F11 进入VBA...

第一个问题是target后面不能跟row,target直接就代表当前单元格: 将function函数放在模块中,执行正常:

步骤如下: 1.原数据,将A列为空的行隐藏 2.Alt+F11,在sheet1中输入如下代码 Sub main() For i = 1 To 6 If Cells(i, 1) = "" Then Rows(i).Hidden = True End If Next i End Sub 3.F5执行代码,关闭,返回Excel,结果如下:

Private Sub Worksheet_Activate() Dim SH As Worksheet For Each SH In Worksheets If SH.Name "Sheet1" Then SH.Visible = False Next End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Sheets(Ta...

select case range("A1") case is = 1 rows(2).hidden = true rows(3).hidden = true case is = 2 rows(2).hidden = true rows(4).hidden = true case is = 3 rows(3).hidden = true rows(4).hidden = true case else end select

Sub Macro1() For i = 1 To 108 If Cells(i, 4) = "" And Cells(i, 11) = "" Then Rows(i).EntireRow.Hidden = True Else Rows(i).EntireRow.Hidden = False End If Next End Sub

1.在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签,在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境,如下图所示: 2.在任意一个模块的代码窗口中输入以下的代码 Sub xyf() Sheet1.Visible = xlSheetHidden End Sub 然后...

网站首页 | 网站地图
All rights reserved Powered by www.llgd.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com