Excel 宏破解方法.doc

HYPERLINK /vanilla/articles/789223.html 如何破解Excel的工作表保护 今天学到了一招如何用宏破解Excel工作表保护的方法，拿来与大家共享一下。1、首先新建一个新的工作簿；2、然后选择“工具”“宏”“VB编辑器”；3、进入到“VB编辑器”后双击左边的Sheet1，在右边的“代码”编辑栏内把下面的宏命令复制到里面；4、再把你要解除保护的EXCEL表打开；5、然后，返回到“VB编辑器”单击上面工具栏的绿色“ play”按钮；6、接着，会出现一个对话框单击“确定”，之后你等2、3分钟后还会弹出一个对话框，这时你只需要连点两次“确定”后你所需要解除保护的工作溥内的所有表就全部解除了。下面是这个宏的代码：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 Amount of tim