如何破解VBAProject属性的保护密码

如何破解VBAProject属性的保护密码1、打开任一excel文件2、在宏里粘贴下面的代码3、运行下面的代码4、选择需要破解密码的文件5、点击“打开”'移除VBA编码保护SubMoveProtect()DimFileNameAsStringFileName=Application.GetOpenFilename(Excel文件（*.xls&*.xla&*.xlsx）,*.xls;*.xla;*.xlsx,,VBA破解)IfFileName=CStr(False)ThenExitSubElseVBAPasswordFileName,FalseEndIfEndSub'设置VBA编码保护SubSetProtect()DimFileNameAsStringFileName=Application.GetOpenFilename(Excel文件（*.xls&*.xla&*.xlsx）,*.xls;*.xla;*.xlsx,,VBA破解)IfFileName=CStr(False)ThenExitSubElseVBAPasswordFileName,TrueEndIfEndSubPrivateFunctionVBAPassword(FileNameAsString,OptionalProtectAsBoolean=False)IfDir(FileName)=ThenExitFunctionElseFileCopyFileName,FileName&.bakEndIfDimGetDataAsString*5OpenFileNameForBinaryAs#1DimCMGsAsLongDimDPBoAsLongFori=1ToLOF(1)Get#1,i,GetDataIfGetData=CMG=ThenCMGs=iIfGetData=[HostThenDPBo=i-2:ExitForNextIfCMGs=0ThenMsgBox请先对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)Mod20ThenPut#1,DPBo+1,s20EndIfMsgBox文件解密成功......,32,提示ElseDimMMsAsString*5MMs=DPB=Put#1,CMGs,MMsMsgBox对文件特殊加密成功......,32,提示EndIfClose#1EndFunction