甜橙 发表于 2008-3-13 10:56:40

Excel机密文件加密保护法

一般保护工作表采取的方法是用Excel菜单中的“保护”命令，有时这尚嫌不足，比如一些机密文件不能让某些使用者看到，但又需要他来操作工作簿中的某些表，怎么办？可利用VBA设立工作表的使用权限，使他只能看到和其工作有关的部分。

    在Excel中，单击“工具”，再单击下拉菜单中的“宏”，点击“Visual Basic编辑器”，打开“工程资源管理器”，双击该工作表，现在出现的是设置该表的属性的编辑窗口，单击窗口左上的下拉列表框，选择“worksheet”，这时再从该窗口右上方的列表框中选择Active(激活)，这时自动显示如下的语句块：

    Private Sub Worksheet_Activate( )
　　End Sub

    在其中加入代码（假设用“123”作为密码,Sheet“机密文档”为限制权限文档，Sheet“普通文档”为工作簿中可以让他人操作的工作表），程序如下：

    Private Sub Worksheet_Activate( )
　　If Application.InputBox(″请输入操作权限密码:″) = 123 Then
　　Range(″A1″).Select
　　Sheets(″机密文档″).Cells.Font.ColorIndex = 56
　　Else
　　MsgBox ″密码错误,即将退出!″
　　Sheets(″普通文档″).Select
　　End If
　　End Sub
　　Private Sub Worksheet_Deactivate( )
　　Sheets(″机密文档″).Cells.Font.ColorIndex = 2
　　End Sub

    大家将它们拷贝到自己的工作表中试试看，很简单，只是别忘记密码。

wxd989 发表于 2008-3-17 22:23:26

看贴不回不道得
义务消灭0回复


支持美女继续放出更多的好东西！

winwk 发表于 2008-12-4 10:05:44

我来测试一下，好像excel的一般的vba加密不难破解吧？

zhl-009 发表于 2009-5-6 11:30:19

学习学习。。。。。。

zhl-009 发表于 2009-5-6 11:30:34

学习学习。。。。。。

awolfs8888 发表于 2009-5-22 11:08:43

学习一下。。。。。

rekyking 发表于 2009-9-28 17:23:40

还可以，谢了，这个对一般用户够用的啦。

李宏辉 发表于 2009-10-16 23:33:12

学习下，谢谢楼主共享！！！！

mahuafeng 发表于 2009-11-7 11:27:52

x谢谢谢谢谢谢谢谢谢谢谢谢谢谢先

czlz 发表于 2010-4-5 18:42:48

看贴不回不道得
义务消灭0回复
页: [1] 2
查看完整版本: Excel机密文件加密保护法