(工作表格保护加密.docVIP

Sub 撤消工作表保护()code = InputBox(Enter password, Warning)Dim icode As Integericode = CInt(code)If (icode = 0) ThenFor i = 1 To Sheets.CountSheets(i).SelectActiveSheet.unprotect (icode)Next iEnd IfEnd Sub 加密 解密文件 修改一下注册表，就 可以给鼠标的右键菜单中增添“加密”和“解密”选项， 以后在需要时用右击即 可完成相关操作。单击“开始→运行”，输入 regedit 后回车，打开注册表编辑 器，定位到 [HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Exporer /Advanced] ，在“编辑”菜单上单击“新建→DWORD 值”，然后输入 EncryptionContextMenu 作为键名，并设置键值为“1”。退出注册表编辑器， 打开资源管理器，任意选中一个 NTFS 分区上的文件或者文件夹，右击就可以在 右键菜单中找到相应的“加密”和“解密”选项，直接单击就可以完成加密 / 解 密的操作 注意：使用 EFS 加密后，在重装系统前要导出密钥，否则在新系统中便不能访问 加密过的文件。 使用 Windows 2000/XP 的 EFS 加密后，如果重装系统，那么原来被加密的文件就 无法打开了！如果你没有事先做好密钥的备份，那么数据是永远打不开的。由此 可见，做好密钥的被备份就很重要。 第一步：首先以本地帐号登录，最好是具有管理员权限的用户。然后单击“开始 →运行”，输入“MMC”后回车，打开控制面板界面。 第二步：单击控制面板的“控制面板→添加删除管理单元”，在弹出的“添加 / 删除管理单元”对话框中单击“添加”按钮， 在“添加独立管理单元”对话框中 选择“证书”后，单击“添加”按钮添加该单元。 如果是管理员， 会要求选择证书方式， 选择“我的用户证书”， 然后单击“关闭” 按钮，单击“确定”按钮返回控制面板。 第三步： 依次展开左边的“控制面板根节点→证书→个人→证书→选择右边窗口 中的账户”，右击选择“所有任务→导出”，弹出“证书导出向导” 第四步：单击“下一步”按钮，选择“是，导出私钥”，单击“下一步”按钮， 勾选“私人信息交换”下面的“如果可能，将所有证书包括到证书路径中”和 “启用加强保护”项，单击“下一步”按钮，进入设置密码界面。 第五步：输入设置密码，这个密码非常重要，一旦遗忘，将永远无法获得，以后 也就无法导入证书。 输入完成以后单击“下一步”按钮，选择保存私钥的位置和 文件名。 第六步：单击“完成”按钮，弹出“导出成功”对话框，表示你的证书和密钥已 经导出成功了，打开保存密钥的路径，会看到一个“信封＋钥匙”的图标，这就是你宝贵的密钥！丢失了它，不仅仅意味着你再也打不开你的数据，也意味着别 人可以轻易打开你的数据。 实战六：导入 EFS 密钥 由于重装系统后， 对于被 EFS 加密的文件我们是不能够打开的，所以重装系统以 前，一定记住导出密钥，然后在新系统中将备份的密钥导入，从而获得权限。 ★确保你导入的密钥有查看的权利，否则就是导入了也没有用的。这一点要求在 导出时就要做到 ★记住导出时设置的密码，最好使用和导出是相同的用户名。 第一步：双击导出的密钥（就是那个“信封＋钥匙”图标的文件），会看到“证 书导入向导”欢迎界面，单击“下一步”按钮，确认路径和密钥证书，然后单击 “下一步”继续。 第二步： 在“密码”后面输入导出时设置的密码，把密码输入后勾选“启用强密 钥保护”和“标志此密钥可导出” （以确保下次能够导出） ， 然后单击“下一步” 继续。 第三步：根据提示，依次单击“下一步”按钮， OK 了，单击完成按钮，看到“导 入成功”就表示你已经成功导入密钥了。 试试看，原来打不开的文件，现在是不是全部都能打开了呢？ 小提示 ★EFS 加密的文件打不开了，把 NTFS 分区转换成 FAT32 分区或者使用相同的用 户名和密码登录甚至重新 Ghost 回原系统都不能解决问题，因此备份和导入 EFS 密钥就显得非常重要。 ★Windows XP 家庭版并不支持 EFS 功能。 怎么给文件夹加密呢？ [1] 从 Windows 2000 开始，在 NTFS 文件系统的分区上， Windows 就可以帮助你加密 文件了。方法是，在你想加密的文件或文件夹上点击鼠标右键，点击“属性”， 在属性的“常规”选项卡上点击“高级”按钮， 会弹出一个窗口，选中窗口中的 “加密内容以便保护数据”就可以实现在 NTFS 卷上对文件的