作者：绿色风
分类：
时间：2022-08-18
浏览：179
楼主
罗刚君 |
允许用户隐藏行与列,但取消时就要输入密码
用VBA完成
 密码.gif
 |
2楼
amulee |
工作簿模块里添加代码：
- Private Sub Workbook_BeforeClose(Cancel As Boolean) '文件关闭时恢复
- Application.CommandBars("Row").Reset
- Application.CommandBars("Column").Reset
- End Sub
- Private Sub Workbook_Open() '文件打开时先删除原先的取消隐藏，自己添加一个
- With Application.CommandBars("Row")
- '先删除，再自己加一个
- .Reset
- .Controls("取消隐藏(&U)").Delete
- '自己加一个
- With .Controls.Add()
- .Caption = "取消隐藏(&U)"
- .OnAction = "ShowCR"
- End With
- End With
- With Application.CommandBars("Column")
- '先删除，再自己加一个
- .Reset
- .Controls("取消隐藏(&U)").Delete
- '自己加一个
- With .Controls.Add()
- .Caption = "取消隐藏(&U)"
- .OnAction = "ShowCR"
- End With
- End With
- End Sub
这里列举了打开工作簿创建的例子，当然也可以用Beforerightclick事件，或者Activate事件来触发。思路是一样的。
然后模块里面添加ShowCR过程
- Sub ShowCR()
- Dim strPWD$
- strPWD = Application.InputBox("请输入密码", "密码", Type:=2)
- '密码正确则执行
- If strPWD = "123" Then
- '判断行或列
- If Selection.Address = Selection.EntireRow.Address Then
- Selection.EntireRow.Hidden = False
- Else
- Selection.EntireColumn.Hidden = False
- End If
- End If
- End Sub
以上代码03通过运行，07不知道怎么样。
请罗老师指点。 |
3楼
qinhuan66 |
好好学习天天向上 |
4楼
lanvinhong |
很需要这个啊 但是为什么没了下文了呢 ? amulee的我试了不行啊 不知道怎么用 ? 谁能解答一下呢?? |
5楼
lanvinhong |
我是excel 2010的 |
6楼
wqfzqgk |
呵呵，想法不错
|
7楼
qicpw |
好贴就是好贴 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一