-
利用
VBA
设置工作表使用权限
利用
VBA
设置工作表使用
权限
Excel Home
一般保
护工作表采取的方法是用
EXCEL
菜单中的
< br>
保护
命令，
有时这尚嫌不足，
比如一些机密文件根本要
让某些使用者无
法看到，但又需要他来操作工作簿中的其他表，怎么办？
可以
打开
VBA
编辑器，
打开
工程资源管理器
，
双击该工作表，
现在出现的是设置该表的属性的编辑窗口，
单击窗口左上的下拉列表框，选择
worksheet ,
< br>这时再从该窗口右上方的列表框中选择
Active(
激
活
），这
时自动显示如下的语句块：<
/p>
Private Sub
Worksheet_Activate()
End Sub
在其中加入代码：
(
假设用
作为密码
,Sheet
机密文档
为限制权限文
档
,sheet
普通文档
为
工作簿中你认为任何适合的工作表
)
If ox(
请输入操作权限密码
:
Range(
Else
Msgbox
密码错误
,
即将退出
!
Sheets(
普通文档
End if
程序如下：
Private Sub
Worksheet_Activate()
If ox(
请
输入操作权限密码
:
Range(
El
se
MsgBox
密码错误
,
即将退出
!
Sheets(
普通文档
End If
End Sub
这样做仍有一个问题，就是越权使用者仍会看
到一些文件的片段，即在提示密码的那段时间。好，你可以
这样做，用上述方法选择工作
表的
Deactivate
事件
,
输入以下代码：
Sheets(
机密文档
这段程序使得此工作表在不被激活时，
所有文字为白色。然后，在第一个程序中的
Range(
后
插入一行，写入以下代码：
ndex =
56
这段程序，在你输入正确密码后，将该表所有文字转变为深灰色。
完整的程序如下：
Private Sub Worksheet_Activate()
If ox(
请输入操作权限密码
:<
/p>
Range(
Sheets(
机密文档<
/p>
Else
MsgBox
密码错误
,
即将退出
!
Sheets(
普通文档
< br>End If
-
-
-
-
-
-
-
-
-
上一篇：雅思词汇词根联想记忆法
下一篇：【课堂】如何让故事情节变得紧凑？