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

需要更改源代码。

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

1)自动隐藏:除目录工作表外,设定每个工作表的Deactivate事件代码如下 Private Sub Worksheet_Deactivate() Me.Visible = xlSheetHidden End Sub 2)目录工作表中插入按钮,给每个按钮指定代码如下例: Private Sub CommandButton1_Click() Wi...

用VBA隐藏和取消隐藏工作表可以使用如下的步骤: 1、工具/原料: (1)Excel (2)VBA 2、在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签,在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境,如下图所示: 3、在任意一个模...

'用于判断的数值不能放在D1,因为当值为6时,第1行会被隐藏,我这里设计判断的值放在A10处。Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer If Target.Address = "$A$10" Then Select Case Target.Value Case Is = 6 Ro...

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