保住Excel 2000文件的秘密
时间：2005-03-07 13:04 来源：未知 作者：未知 阅读：次
一般保护工作表采取的方法是用Excel 2000菜单中的“保护”命令，有时这尚嫌不足，比如一些机密文件不能让某些使用者看到，但又需要他来操作工作簿中的某些表，怎么办？可利用VBA设立工作表的使用权限，使他只能看到和其工作有关的部分。
在Excel 2000中，单击“工具”，再单击下拉菜单中的“宏”，点击“Visual Basic编辑器”，打开“工程资源管理器”，双击该工作表，现在出现的是设置该表的属性的编辑窗口，单击窗口左上的下拉列表框，选择“worksheet”，这时再从该窗口右上方的列表框中选择Active(激活)，这时自动显示如下的语句块：
Private Sub Worksheet_Activate( )
End Sub
在其中加入代码(假设用“123”作为密码,Sheet“机密文档”为限制权限文档，Sheet“普通文档”为工作簿中可以让他人操作的工作表)，程序如下：
Private Sub Worksheet_Activate( )If Application.InputBox(″请输入操作权限密码:″) = 123 ThenRange(″A1″).SelectSheets
(″机密文档″).Cells.Font.ColorIndex = 56Else
MsgBox ″密码错误,即将退出!″
Sheets(″普通文档″).Select
End If
End Sub
Private Sub Worksheet_Deactivate( )
Sheets(″机密文档″).Cells.Font.ColorIndex = 2
End Sub
大家将它们拷贝到自己的工作表中试试看，很简单，只是别忘记密码。
在Excel 2000中，单击“工具”，再单击下拉菜单中的“宏”，点击“Visual Basic编辑器”，打开“工程资源管理器”，双击该工作表，现在出现的是设置该表的属性的编辑窗口，单击窗口左上的下拉列表框，选择“worksheet”，这时再从该窗口右上方的列表框中选择Active(激活)，这时自动显示如下的语句块：
Private Sub Worksheet_Activate( )
End Sub
在其中加入代码(假设用“123”作为密码,Sheet“机密文档”为限制权限文档，Sheet“普通文档”为工作簿中可以让他人操作的工作表)，程序如下：
Private Sub Worksheet_Activate( )If Application.InputBox(″请输入操作权限密码:″) = 123 ThenRange(″A1″).SelectSheets
(″机密文档″).Cells.Font.ColorIndex = 56Else
MsgBox ″密码错误,即将退出!″
Sheets(″普通文档″).Select
End If
End Sub
Private Sub Worksheet_Deactivate( )
Sheets(″机密文档″).Cells.Font.ColorIndex = 2
End Sub
大家将它们拷贝到自己的工作表中试试看，很简单，只是别忘记密码。
(责任编辑：admin)
顶一下
(0)
0%
踩一下
(0)
0%
最新内容
推荐内容