破解office密码的宏（Crack the macro of the office code）.docVIP

破解office密码的宏（Crack the macro of the office code） 1\ open file 2\ tools - macro - - record new macros - enter names, such as: AA 3\ stops recording (thus getting an empty macro) 4\ tools --- macro ---- macro, select AA, point edit button 5\ deletes all characters in the window (only a few), replacing the following: (copy) 6\ closes the edit window 7\ tools - macro - macro, select AllInternalPasswords, run, determine two times, and so on 2 minutes, and then determine the.OK, no password!! As follows: 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 = Please DBLSPACE report failure _ To, the, gramming, newsgroup.. Const ALLCLEAR As String = The DBLSPACE workbook should _ Now be free of all password protection so make sure you: _ SAVE DBLSPACE IT DBLSPACE NOW! 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. Access DBLSPACE 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, or, windows., structure AUTHORS VERSION Const MSGNOPWORDS2 As String = There was no protection to _ Workbook structure or w