WORD以及XECEL加密文件如何解锁.docVIP

Word如何解锁 右键-打开方式：写字板-另存为（RTF格式）-关闭-打开方式-wordExcel加密保护如何解锁 ？???? 拿到一份Excel文件，由于有些内容加了保护，修改不了，于是到网上搜索了一下解密方法，找到一种试了一下有效，转帖如下： 　　1\打开文件 　　2\工具---宏----录制新宏---输入名字如:aa 　　3\停止录制(这样得到一个空宏) 　　4\工具---宏----宏,选aa,点编辑按钮 　　5\删除窗口中的所有字符(只有几个),替换为下面的内容:(你复制吧) ??? 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 ??? Const AUTHORS As String = DBLSPACE 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: _??? DBLSPACE SAVE IT NOW! DBLSPACE and also _??? DBLSPACE BACKUP!, BACKUP!!, BACKUP!!! _??? DBLSPACE Also, remember that the password was _??? put there for a reason. Dont stuff up crucial formulas _??? or data. DBLSPACE 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. AUTHORS VERSION ??? Const MSGNOPWORDS2 As String = There was no protection to _??? workbook structure or windows. DBLSPACE _??? Proceeding to unprotect sheets. AUTHORS VERSION ??? Const MSGTAKETIME As String = After pressing OK button this _??? will take some time. DBLSPACE