工作表格保护加密.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 加密后，在重装系统前要导出密钥，否则在新系统中便不能访问 加密过的文件。 使用 Win