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

ExCEl vBA 隐藏模块

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

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

第一个问题是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,结果如下:

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

请用下面代码,在工作表标签上点鼠标右键,从快捷菜单中寻查看代码”,调出该工作表的VBA模块,粘贴下面代码就行了。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value = "隐藏" ...

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

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...

需要更改源代码。

点击EXCEL菜单“工具”-“宏”-“Visual Basic编辑器”,会出现一个窗口,在窗口的左边小窗口里有类似“模块1”“模块2”的东西,点击右键--“移除模块1”,然后点击“否”。关闭窗口,回到excel表格,保存。 下次打开时就没有宏了。 记得加分。

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