[VBA][Tools]Excel VBA密码破解工具（VBA实现）

VBA密码破解

新建一个Excel工作簿,Alt+F11 打开VBA编辑器,新建一个模块 ,复制以下代码即可,经测试已经通过.

‘1>破解程序测试WIN98+OFFICE97,WinXP+Office2003破解成功。’2>用以下代码对VBA加密保护后用offkey 6.5-7.0及Advanced VBA pASSWORD Recovery专业版均无法破解出保护程式码的密码

OptionExplicit’移除VBA??保?SubMoveProtect()DimFileNameAsStringFileName=Application.GetOpenFilename("Excel文件（*.xls&*.xla）,*.xls;*.xla",,"VBA破解")IfFileName=CStr(False)ThenExitSubElseVBAPasswordFileName,FalseEndIfEndSub’?置VBA??保?SubSetProtect()DimFileNameAsStringFileName=Application.GetOpenFilename("Excel文件（*.xls&*.xla）,*.xls;*.xla",,"VBA破解")IfFileName=CStr(False)ThenExitSubElseVBAPasswordFileName,TrueEndIfEndSubPrivateFunctionVBAPassword(FileNameAsString,OptionalProtectAsBoolean=False)DimiAsIntegerOnErrorResumeNextIfDir(FileName)=""ThenExitFunctionElseFileCopyFileName,FileName&"_"&Format(Date,"YYYYMMDD")&Format(Time,"hhmmss")&".bak"IfErr.Number="55"ThenMsgBox"指定されたファイルは開けています。閉じてください。"ExitFunctionEndIfEndIfDimGetDataAsString*5OpenFileNameForBinaryAs#1DimCMGsAsLongDimDPBoAsLongFori=1ToLOF(1)Get#1,i,GetDataIfGetData="CMG="""ThenCMGs=iIfGetData="[Host"ThenDPBo=i-2:ExitForNextIfCMGs=0ThenMsgBox"このExcelに、VBAパスワードは設定されていない！",32,"提示"ExitFunctionEndIfIfProtect=FalseThenDimStAsString*2Dims20AsString*1’取得一个0D0A十六?制字串Get#1,CMGs-2,St’取得一个20十六制字串Get#1,DPBo+16,s20’替?加密部?机?Fori=CMGsToDPBoStep2Put#1,i,StNext’加入不配?符号If(DPBo-CMGs)Mod2<>0ThenPut#1,DPBo+1,s20EndIfMsgBox"VBAパスワードは削除しました！……",32,"提示"ElseDimMMsAsString*5MMs="DPB="""Put#1,CMGs,MMsMsgBox"VBAパスワードは追加しました！……",32,"提示"EndIfClose#1EndFunction

找回自我，歇够了，再飞回来，继续面对自己的人生。