利用VBA设置工作表使用权限

双击该工作表，

现在出现的是设置该表的属性的编辑窗口，

单击窗口左上的下拉列表框，选择

worksheet ,

< br>这时再从该窗口右上方的列表框中选择

Active(

激 活

），这

时自动显示如下的语句块：< /p>

Private Sub Worksheet_Activate()

End Sub

在其中加入代码：

(

假设用

作为密码

,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