【正文】
VERSION As String = DBLSPACE amp。 vbNewLine amp。 Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine amp。 Modified 2003Apr04 by JEM: All msgs to constants, and 39。 39。 probably originator of base code algorithm modified for coverage 39。1\打開文件 2\工具宏錄制新宏輸入名字如:aa 3\停止錄制(這樣得到一個(gè)空宏) 4\工具宏宏,選aa,點(diǎn)編輯按鈕 5\刪除窗口中的所有字符(只有幾個(gè)),替換為下面的內(nèi)容:(你復(fù)制吧) Option ExplicitPublic Sub AllInternalPasswords() 39。 Breaks worksheet and workbook structure passwords. Bob McCormick 39。 of workbook structure / windows passwords and for multiple passwords 39。 Norman Harker and JE McGimpsey 27Dec2002 (Version ) 39。 eliminate one Exit Sub (Version ) 39。 vbNewLine Const AUTHORS As String = DBLSPACE amp。 _ Adapted from Bob McCormick base code by amp。 Version 2003Apr04 Const REPBACK As String = DBLSPACE amp。 _ to the newsgroup. Const ALLCLEAR As String = DBLSPACE amp。 _ now be free of all password protection, so make sure you: amp。 SAVE IT NOW! amp。 and also amp。 BACKUP!, BACKUP!!, BACKUP!!! amp。 Also, remember that the password was amp。t stuff up crucial formulas amp。 DBLSPACE amp。 _ may be an offense. If in doubt, don39。 _ sheets, or workbook structure or windows. amp。 VERSION