天津师大留学生部:VBA系列讲座(5):利用VBA设置工作表使用权限

来源：百度文库 编辑：偶看新闻 时间：2024/04/28 06:46:01
一般保护工作表采取的方法是用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返回一列中的最大值？？？ vba-rerecording 什么是VBA VBA 高手 什么是VBA vba 问题 VBA 丢失 ACCESS VBA Excel VBA Excel VBA vba excel 利用vba将文件另存为一个新的文件 GBA游戏VBA系列模拟器内行的进~ 用VBA编程如何遍历EXCEL每一个工作表 在execl-vba中用什么语句判断一个工作表是空表 如何用VBA/VB来设置Excel的格式 如何用EXCEL里VBA设置条件格式呢？ 在VBA模拟器中怎么设置使用手柄呢 在VBA模拟器中怎么设置使用手柄呢？？ 什么是VBA？为什么要用VBA？ VBA代码是什么？？？？？？？？ VBA模拟器的问题！ VBA是什么东西