Excel“工程不可查看”两种实现方法及破解

方法一（共用级锁定）1、先对excel档进行一般的vbaproject”工程密码保护。2、打开要保护的档，选择∶工具---保护---保护并共用活页簿---以追踪修订方式共用--输入密码--保存档。完成後，当你打开“vbaproject”工程属性时，就将会提示∶“工程不可看！”方法二（推荐，破坏型锁定）用16进制编辑工具，如winhex、ultraedit-32（可到此下载）等，再历害点的人完全可以用debug命令来做......用以上软体打开excel档，查找定位以下地方∶id={00000000-0000-0000-0000-000000000000}注∶实际显示不会全部为0此时，你只要将其中的位元组随便修改一下即可。保存再打开，就会发现大功告成！当然，在修改前最好做好你的文档备份。至於恢复只要将改动过的地方还原即可（只要你记住了呵呵）。破解方面,有网友说将cmg=，dpb=和gc=后的=替换为.也可以的，我已测试过的确可以，这样更省事点。用16进制编辑工具，如winhex、ultraedit-32打开x.xls文件，查找id=......,或到文件尾查看，找到即可。改其中的任意一位,存盘就可达到目的，注意：留有备份文件本文来自学习网()，原文地址：工程不可查看解密代码转新建一个Excel工作簿,Alt+F11打开VBA编辑器,新建一个模块,复制以下代码,注意如提示变量未定义,则把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)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