OFFICE学习资料 | OFFICE资源下载 | OFFICE知识问答      
设为首页
加入收藏
联系站长
  当前位置:Office学院 >> Office >> VBA 基础 >> 正文
VBA系列讲座(5):利用VBA设置工作表使用权限
[2006年10月26日]  点击数: 【字体: 】【双击滚屏
 

    一般保护工作表采取的方法是用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系列讲座(6):提高Excel中VBA的效率
下一篇:VBA系列讲座(4):理解变量
最新文章
也谈数字签名10/26
字符串问题提问答集10/26
Visual Basic的调试和错误处理10/26
VBA系列讲座(1):VBA是什么10/26
VBA系列讲座(2):处理录制的宏10/26
VBA系列讲座(3):学习控件10/26
VBA系列讲座(4):理解变量10/26
VBA系列讲座(5):利用VBA设置工作表使用权限10/26
热门文章
相关文章
Office Word打印设置技巧六则
简单有效而且迅速的WORD页面设置
利用EXCEL进行学生成绩管理
设置Outlook接收附件的文件类型
使用Outlook进行会议安排设置
在Word中嵌入已有的Excel工作表的
轻松保存Office中的个性化设置
用Excel巧妙设置定时提醒功能
office知识问答 | office资源下载
备案许可证号: 津ICP备06003561号
版权所有:Office学院 www.officeXY.com
OFFICE学院致力于成就华人社区最受欢迎的office办公软件学习园地;为大家提供word、excel、access、FrontPage、PowerPoint等Office各个系列产品的最全的教程、用法、技巧、方案;并竭力打造最方便的问题解答系统