荆灵是哪个省的人:第五课 利用VBA设置工作表使用权限
来源:百度文库 编辑:偶看新闻 时间:2024/06/29 21:25:06
第五课 利用VBA设置工作表使用权限
来源:啄木鸟之家 作者:liu 等级:默认等级
发布于2005-12-30 01:24 被读4918次 【字体:大 中 小】
第五课" 利用VBA设置工作表使用权限 Excel Home 一般保护工作表采取的方法是用EXCEL菜单中的“保护”命令,有时这尚嫌不足,比如一些机密文件根本要让某些使用者无法看到,但又需要他来操作工作簿中的其他表,怎么办? 可以打开VBA编辑器,打开“工程资源管理器”,双击该工作表,现在出现的是设置该表的属性的编辑窗口,单击窗口左上的下拉列表框,选择worksheet ,这时再从该窗口右上方的列表框中选择Active(“激活”),这时自动显示如下的语句块:
Private Sub Worksheet_Activate()
End Sub
在其中加入代码:(假设用"123"作为密码,Sheet"机密文档"为限制权限文
档,sheet"普通文档"为工作簿中你认为任何适合的工作表)
If Application.InputBox("请输入操作权限密码:") = 123 Then
Range("A1").Select
Else
Msgbox "密码错误,即将退出!"
Sheets("普通文档").Select
End if
程序如下:
Private Sub Worksheet_Activate()
If Application.InputBox("请输入操作权限密码:") = 123 Then
Range("A1").Select
Else
MsgBox "密码错误,即将退出!"
Sheets("普通文档").Select
End If
End Sub
这样做仍有一个问题,就是越权使用者仍会看到一些文件的片段,即在提示密码的那段时间。好,你可以这样做,用上述方法选择工作表的Deactivate事件,输入以下代码:
Sheets("机密文档").Cells.Font.ColorIndex = 2
这段程序使得此工作表在不被激活时,所有文字为白色。然后,在第一个程序中的Range("A1").Select后插入一行,写入以下代码:
ActiveSheet.Cells.Font.ColorIndex = 56
这段程序,在你输入正确密码后,将该表所有文字转变为深灰色。
完整的程序如下:
Private Sub Worksheet_Activate()
If Application.InputBox("请输入操作权限密码:") = 123 Then
Range("A1").Select
Sheets("机密文档").Cells.Font.ColorIndex = 56
Else
MsgBox "密码错误,即将退出!"
Sheets("普通文档").Select
End If
来源:啄木鸟之家 作者:liu 等级:默认等级
发布于2005-12-30 01:24 被读4918次 【字体:大 中 小】
第五课" 利用VBA设置工作表使用权限 Excel Home 一般保护工作表采取的方法是用EXCEL菜单中的“保护”命令,有时这尚嫌不足,比如一些机密文件根本要让某些使用者无法看到,但又需要他来操作工作簿中的其他表,怎么办? 可以打开VBA编辑器,打开“工程资源管理器”,双击该工作表,现在出现的是设置该表的属性的编辑窗口,单击窗口左上的下拉列表框,选择worksheet ,这时再从该窗口右上方的列表框中选择Active(“激活”),这时自动显示如下的语句块:
Private Sub Worksheet_Activate()
End Sub
在其中加入代码:(假设用"123"作为密码,Sheet"机密文档"为限制权限文
档,sheet"普通文档"为工作簿中你认为任何适合的工作表)
If Application.InputBox("请输入操作权限密码:") = 123 Then
Range("A1").Select
Else
Msgbox "密码错误,即将退出!"
Sheets("普通文档").Select
End if
程序如下:
Private Sub Worksheet_Activate()
If Application.InputBox("请输入操作权限密码:") = 123 Then
Range("A1").Select
Else
MsgBox "密码错误,即将退出!"
Sheets("普通文档").Select
End If
End Sub
这样做仍有一个问题,就是越权使用者仍会看到一些文件的片段,即在提示密码的那段时间。好,你可以这样做,用上述方法选择工作表的Deactivate事件,输入以下代码:
Sheets("机密文档").Cells.Font.ColorIndex = 2
这段程序使得此工作表在不被激活时,所有文字为白色。然后,在第一个程序中的Range("A1").Select后插入一行,写入以下代码:
ActiveSheet.Cells.Font.ColorIndex = 56
这段程序,在你输入正确密码后,将该表所有文字转变为深灰色。
完整的程序如下:
Private Sub Worksheet_Activate()
If Application.InputBox("请输入操作权限密码:") = 123 Then
Range("A1").Select
Sheets("机密文档").Cells.Font.ColorIndex = 56
Else
MsgBox "密码错误,即将退出!"
Sheets("普通文档").Select
End If
在VBA模拟器中怎么设置使用手柄呢
在VBA模拟器中怎么设置使用手柄呢??
如何对文件设置使用权限?多谢!
怎样使用RegSetKeySecurity来设置注册表权限
vba 打开工作簿
设置权限
用VBA编程如何遍历EXCEL每一个工作表
如何使用NTFS设置资源访问权限和共享资源
XP, 如何GUAST帐户的使用权限进行设置?
怎样设置XP的低级用户的使用权限
电脑系统中某个软件的使用权限设置?
在XP中,怎样设置软件使用权限?
在局域网内怎样设置自己电脑的使用权限?
100分求软件使用权限设置办法.
防火墙的使用权限 的设置在哪里?
XP用户的权限怎么设置?具体的权限,可以任意使用和安装软件
如何利用VBA返回一列中的最大值???
sqlserver中对表权限的设置
VBA如何使用金手指?
如何使用VBA 进行通信
怎么使用VBA金手指
VBA金手指如何使用
如何使用VBA启动Excel
FFTA在VBA模拟器上怎么存档?为什么总是说我的“所使用的记忆体工作异常”?