excel表格加密文档的解密教程.docxVIP

第 第 PAGE 1 页 共 NUMPAGES 1 页 excel表格加密文档的解密教程 　　Excel中的加密文档有时候需要进行解密处理，但是很多人不知道怎么操作，不要着急，小编告诉你excel表格加密文档的解密教程，希望阅读过后对你有所启发!　　excel表格加密文档解密教程　　加密文档解密步骤1：打开您需要破解的Excel文件，如图所示：　　加密文档解密步骤2：依次点击菜单栏上的工具宏录制新宏;　　加密文档解密步骤3：输入宏名字(PS：打击积极性啊!)如:易尔拓，然后停止录制(这样得到一个空宏，为后面添加vb代码做准备);　　加密文档解密步骤4：依次点击菜单栏上的工具宏宏,选易尔拓,点编辑按钮;　　删除窗口中的所有字符,替换为下面的内容;　　Option Explicit　　Public Sub AllInternalPasswords()　　 Breaks worksheet and workbook structure passwords. Bob McCormick　　 probably originator of base code algorithm modified for coverage　　 of workbook structure / windows passwords and for multiple passwords　　　　 Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)　　 Modified 2003-Apr-04 by JEM: All msgs to constants, and　　 eliminate one Exit Sub (Version 1.1.1)　　 Reveals hashed passwords NOT original passwords　　Const DBLSPACE As String = vbNewLine vbNewLine Adapted from Bob McCormick base code by Norman Harker and JE McGimpsey　　Const HEADER As String = AllInternalPasswords User Message　　Const VERSION As String = DBLSPACE Version 1.1.1 2003-Apr-04　　Const REPBACK As String = DBLSPACE Please report failure to the gramming newsgroup.　　Const ALLCLEAR As String = DBLSPACE The workbook should now be free of all password protection, so make sure you: SAVE IT NOW! and also BACKUP!, BACKUP!!, BACKUP!!! Also, remember that the password was put there for a reason. Dont stuff up crucial formulas or data. Access and use of some data may be an offense. If in doubt, dont.　　Const MSGNOPWORDS1 As String = There were no passwords on sheets, or workbook structure or windows. VERSION　　Const MSGNOPWORDS2 As String = There was no protection to workbook structure or windows. _　　Proceeding to unprotect sheets. VERSION　　Const MSGTAKETIME As String = After pressing OK button this will take some time. Amount of time depends on how many different passwords, the passwords, and your computers specification. _　　Just be patient! Make me a