破解Excel文件密码保护的方法(VBA宏代码破解法)

ÆƽâExcelÎļşÃÜÂë±£»¤µÄ·½·¨(VBAºê´úÂëÆƽⷨ)¡¡¡¡µÚÒ»²½£º´ò¿ª¸ÃÎļş£¬ÏȽâ³ıĬÈϵġ°ºê½ûÓá±×´Ì¬£¬·½·¨Êǵã»÷À¸Ïµġ°Ñ¡Ï״̬°´Å¥£¬´ò¿ª¡°MicrosoftOffice°²È«Ñ¡Ï´°¿Ú£¬Ñ¡ÔñÆäÖеġ°ÆôÓôËÄÚÈİ¡±£¬¡°È·¶¨¡±Í˳ö£»¡¡¡¡ÔÙÇĞ»»µ½¡°ÊÓͼ¡±Ñ¡Ï£¬µã»÷¡°ºê¡±¡ú¡°Â¼Öƺꡱ£¬³öÏÖ¡°Â¼ÖÆкꡱ´°¿Ú£¬ÔÚ¡°ºêÃû¡±¶¨ÒåÒ»¸öÃû³ÆΪ£ºPassBreaker(ͼ3)£¬µã»÷¡°È·¶¨¡±Í˳ö£»¡¡¡¡µÚ¶ş²½£ºÔÙµã»÷¡°ºê¡±¡ú¡°²é¿´ºê¡±£¬Ñ¡Ôñ¡°ºêÃû¡±Ïµġ°PasswordBreaker¡±²¢µã»÷¡°±à¼­¡±£¬´ò¿ª¡°MicrosoftVisualBasic¡±±à¼­Æ÷£¬ÓÃÈçÏÂÄÚÈİÌæ»»ÓҲര¿ÚÖеÄËùÓĞ´úÂ룺¡¡¡¡SubPasswordBreaker()¡¡¡¡DimiAsInteger,jAsInteger,kAsInteger¡¡¡¡DimlAsInteger,mAsInteger,nAsInteger¡¡¡¡Dimi1AsInteger,i2AsInteger,i3AsInteger¡¡¡¡Dimi4AsInteger,i5AsInteger,i6AsInteger¡¡¡¡OnErrorResumeNext¡¡¡¡Fori=65To66:Forj=65To66:Fork=65To66¡¡¡¡Forl=65To66:Form=65To66:Fori1=65To66¡¡¡¡Fori2=65To66:Fori3=65To66:Fori4=65To66¡¡¡¡Fori5=65To66:Fori6=65To66:Forn=32To126¡¡¡¡ActiveSheet.UnprotectChr(i)&Chr(j)&Chr(k)&_¡¡¡¡Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_¡¡¡¡Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)¡¡¡¡IfActiveSheet.ProtectContents=FalseThen¡¡¡¡MsgBoxOneusablepasswordis&Chr(i)&Chr(j)&_¡¡¡¡Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_¡¡¡¡Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)¡¡¡¡ActiveWorkbook.Sheets(1).Select¡¡¡¡Range(a1).FormulaR1C1=Chr(i)&Chr(j)&_¡¡¡¡Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_¡¡¡¡Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)¡¡¡¡ExitSub¡¡¡¡EndIf¡¡¡¡Next:Next:Next:Next:Next:Next¡¡¡¡Next:Next:Next:Next:Next:Next¡¡¡¡EndSub¡¡¡¡µÚÈı²½£ºÔÙµã»÷¡°ºê¡±¡ú¡°²é¿´ºê¡±£¬Ñ¡Ôñ¡°ºêÃû¡±Ïµġ°PasswordBreaker¡±²¢µã»÷¡°Ö´ĞĞ¡±£¬ÃÜÂë¾ÍÏÖĞÎÁË¡£¡¡¡¡µÚËIJ½£ºÇĞ»»¡°ÉóÔÄ¡±Ñ¡Ï£¬µã»÷¡°³·Ïû¹¤×÷±í±£»¤¡±£¬È»ºóÊäÈëÃÜÂë¼´¿É½â³ıËø¶¨¡£