Excel VBA工程密码破解程序 (绝对可以破解)
我的图书馆
Excel VBA工程密码破解程序 (绝对可以破解)
新建一个Excel工作簿,Alt+F11 打开VBA编辑器,新建一个模块 ,复制以下代码,注意如提示变量未定义,则把Option Explicit行删除即可,经测试已经通过. '移除VBA编码保护Sub MoveProtect()&&& Dim FileName As String&&& FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.*.xla", , "VBA破解")&&& If FileName = CStr(False) Then&&&&&& Exit Sub&&& Else&&&&&& VBAPassword FileName, False&&& End IfEnd Sub '设置VBA编码保护Sub SetProtect()&&& Dim FileName As String&&& FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.*.xla", , "VBA破解")&&& If FileName = CStr(False) Then&&&&&& Exit Sub&&& Else&&&&&& VBAPassword FileName, True&&& End IfEnd Sub Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)&&&&& If Dir(FileName) = "" Then&&&&&&&& Exit Function&&&&& Else&&&&&&&& FileCopy FileName, FileName & ".bak"&&&&& End If &&&&& Dim GetData As String * 5&&&&& Open FileName For Binary As #1&&&&& Dim CMGs As Long&&&&& Dim DPBo As Long&&&&& For i = 1 To LOF(1)&&&&&&&&& Get #1, i, GetData&&&&&&&&& If GetData = "CMG=""" Then CMGs = i&&&&&&&&& If GetData = "[Host" Then DPBo = i - 2: Exit For&&&&& Next&&&&& If CMGs = 0 Then&&&&&&&& MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"&&&&&&&& Exit Function&&&&& End If&&&&& If Protect = False Then&&&&&&&& Dim St As String * 2&&&&&&&& Dim s20 As String * 1&&&&&&&& '取得一个0D0A十六进制字串&&&&&&&& Get #1, CMGs - 2, St&&&&&&&& '取得一个20十六制字串&&&&&&&& Get #1, DPBo + 16, s20&&&&&&&& '替换加密部份机码&&&&&&&& For i = CMGs To DPBo Step 2&&&&&&&&&&&& Put #1, i, St&&&&&&&& Next&&&&&&&& '加入不配对符号&&&&&&&& If (DPBo - CMGs) Mod 2 && 0 Then&&&&&&&&&&& Put #1, DPBo + 1, s20&&&&&&&& End If&&&&&&&& MsgBox "文件解密成功......", 32, "提示"&&&&& Else&&&&&&&& Dim MMs As String * 5&&&&&&&& MMs = "DPB="""&&&&&&&& Put #1, CMGs, MMs&&&&&&&& MsgBox "对文件特殊加密成功......", 32, "提示"&&&&& End If&&&&& Close #1End Function 原文地址:/showart.asp?art_id=81 这段代码很强的...!! 大家可以自己复制代码到VBA中，我就不提供破解文件了，有疑问在下面留言,谢谢
TA的推荐TA的最新馆藏[转]&[转]&[转]&
喜欢该文的人也喜欢VBA工程加解锁器 完全版
为鼓励上传资源，我们采用积分下载方式，希望您能发布更多更好的资源互相分享
1.上传软件或电子书,源码,资料等,审核后即获2积分;如发布时设了下载需积分，其他用户下载后你将获得相应积分
2.当您首次注册时，可以获送10个下载积分，供您下载资源和熟悉网站下载的使用
3.发现资源有误或其他问题，通过举报按钮反馈后我们将奖励积分
4.您可以在论坛通过发帖等方式获取
5.参加本站可以在有效期内不限次数下载
6.您也（1元=10积分）或
7.我们会不定期举办各种活动，参加活动可以获取积分，请关注下载频道首页公告。
您可能遇到这些“伪问题”：
1.资料无法解压：
请确保所有分卷均下载完毕，如果有未知后缀文件，请搜索相应解压软件；
2.chm文件无内容：
您的电脑锁定了这一文件，请右击文件属性，点击右下方“解除锁定”，关闭文件后再打开；
3.下载不下来：
请尝试重新下载（重新下载不扣积分）；
4.杀毒软件报毒：
黑客安全及破解类软件容易报毒，但可正常使用，如担心安全请谨慎使用。
VBA工程加解锁器：用于Excel VBA的密码处理工具！能够了的VBA代码的密码 ，简单粗暴，很不错！
您对本软件有什么意见或着疑问吗？请到您的关注和建议是我们前行的参考和动力
下载地址：
您正在下载：VBA工程加解锁器 完全版
热门最新推荐
您的浏览器不支持嵌入式框架，或者当前配置为不显示嵌入式框架。
文章下载读书EXCEL VBA文件封装成EXE的方法
来源：& 作者：未知
XLS封装成EXE全攻略■ ldhyob&&2003.12写出此文以帮助关注那张帖的版友们能完全自已独立完成xls2exe的过程，实现简单的封装。首先申明，将xls做成exe并不是指就能使您的工程受到坚强的保护，当然您可以通过数种方法来提高xlsVBA工程防止查看的保护几率，如屏蔽一些热键、监控VBE窗口的开启、给文档加上口令保护、加VBA口令、使VBA“不可查看”、利用宏表4.0来禁止用户取消宏来查看文档等等，但“道高一尺，魔高一丈”，所以就没有必要去追求所谓的“完美”……关于这些保护方法不属本文叙述范围，请版友在论坛上查看相关帖。& && &假如您手头已有一xls文档等待封装，假如您机子上已安装有VB6开发系统，那么请跟着往下操作：& && &一、用VB制作EXE头部分& && &1、打开VB，“文件”-“新建工程”-“标准EXE”；& && &2、此时会出现名为Form1的默认编辑窗口，Form1将作为启动封面窗体，打开该Form1的属性窗口，对如下属性进行：BorderStyle=0，StartUpPosition=2，Icon与Picture属性设置成你需要的图标（这也将成为你EXE的图标）和设计好准备使用的（即软件封面），窗体的大小设置成您需要的合适值即可。& && &3、往窗体中添加一个时钟timer1，并将其InterVal属性设为1000。& && &4、双击窗体打开编辑窗口，录入以下代码：Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As LongPrivate Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As LongPrivate Const MAX_PATH = 260Private Const EXE_SIZE = 81920 '本EXE实际字节大小Private Type FileSection&&Bytes() As ByteEnd TypePrivate Type SectionedFile&&Files() As FileSectionEnd TypeDim StopTime As IntegerPrivate Sub Form_Activate()If Command() = "" Then Main1End SubPrivate Sub Form_Load()On Error Resume NextIf Command() = "" Then&&Form1.Visible = True&&SetWindowPos Form1.hwnd, -1, 0, 0, 0, 0, &H2 Or &H1 '将封面置为最顶层窗体Else&&Form1.Visible = False&&Form1.Timer1.Enabled = TrueEnd IfEnd SubSub Main1()Dim StartXLSByte, I, J As LongDim AppPath, XlsTmpPath As StringDim myfile As SectionedFileDim xlApp As Excel.Application '定义类Dim xlBook As Excel.Workbook '定义工件簿类Dim xlsheet As Excel.Worksheet '定义类AppPath = App.PathXlsTmpPath = GetTempFile() '取得XLS临时文件名（带路径）If VBA.Right(App.Path, 1) = "\" Then AppPath = VBA.Left(App.Path, VBA.Len(App.Path) - 1)Open AppPath & "\" & App.EXEName & ".exe" For Binary As #1ReDim myfile.Files(1)ReDim myfile.Files(1).Bytes(1 To LOF(1) - EXE_SIZE)Open XlsTmpPath For Binary As #2& & Get #1, EXE_SIZE + 1, myfile.Files(1).Bytes '此处要根据EXE实际头文件大小更改设定& & Put #2, 1, myfile.Files(1).BytesClose #1Close #2Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类Set xlBook = xlApp.Workbooks.Open(FileName:=XlsTmpPath, pass:="ldhyob") '打开EXCEL簿,已知该工作簿已加打开口令为ldhyob'以下星号括起部分代码是往xls里写（也可不往工作簿里写数据的方法，而生成txt的方法），作用是保存本exe的绝对路径与临时xls绝对路径，以便于EXE重写更新与临时文件'*****************************************Set xlsheet = xlBook.Worksheets("temp") '设置活动工作表xlsheet.Cells(1, 1) = AppPath & "\" & App.EXEName & ".exe" '将该EXE完全路径存在工作表格内xlsheet.Cells(2, 1) = XlsTmpPath '将该EXE本次运行产生XLS临时文件路径存在工作表内'****************************************xlApp.Visible = True '设置EXCEL可见Set xlApp = Nothing '释放xlApp对象StopTime = 0Me.Timer1.Enabled = True '启动时钟End SubPrivate Function GetTempFile() As String '用来产生系统临时文件名Dim lngRet As LongDim strBuffer As String, strTempPath As StringstrBuffer = String$(MAX_PATH, 0)lngRet = GetTempPath(Len(strBuffer), strBuffer)If lngRet = 0 Then Exit FunctionstrTempPath = Left$(strBuffer, lngRet)strBuffer = String$(MAX_PATH, 0)lngRet = GetTempFileName(strTempPath, "tmp", 0&, strBuffer)If lngRet = 0 Then Exit FunctionlngRet = InStr(1, strBuffer, Chr(0))If lngRet & 0 ThenGetTempFile = Left$(strBuffer, lngRet - 1)ElseGetTempFile = strBufferEnd IfEnd FunctionPrivate Sub Timer1_Timer()On Error Resume NextIf Command() && "" Then& &If VBA.Dir(Command()) && "" Then& && &Kill Command() '删除本次运行遗留的临时XLS文件& &Else& && &End& &End IfElseStopTime = StopTime + 1 '计时累加If StopTime = 1 Then Unload Me: End '2秒后关闭退出End IfEnd Sub& && &5、可保存工程，如取名为“工程1”；& && &6、进行编译，“文件”-“生成工程1.exe”，此时也可将生成的EXE另外取名，如取名叫abc.exe。& && &7、查看第6步生成的EXE文件字节大小，并将具体数字记下来，并将VB模块中的“Private Const EXE_SIZE = 81920”保证一致（这里的81920是笔者例子的结果数字，每个人在实际时会有不同）。此例此步很重要，必须要做，该数字在xls文档VBA中还要使用到。& && &至此，文件头部分已做完，abc.exe文件也已生成于磁盘中。& && && &&&特别提示:编译前,确保VB里"工程"---"引用"里"Microsoft Excel 9.0 Object Library"前面的勾已打上.& && &二、xls文档部分操作& && &1、给工作簿增加一个工作表temp，将其置为隐藏。& && &2、增加xls文档宏代码以实现文档关闭时EXE数据刷新。& && &打开xls文档，打开VBE窗口，在ThisWorkBook代码区头部加入以下代码：Private Const EXE_SIZE = 81920 '此处数字为前面第7步得到的EXE文件字节数Private Type FileSection&&Bytes() As ByteEnd Type在Workbook_BeforeClose事件中加入如下代码(对原有的代码可保留)：& & Dim myfile As FileSection '定义变量Dim comc, exec, xlsc As String '定义变量& & Application.Visible = False '隐藏EXCEL主窗口& & exec = WorkSheets(“temp”).cells(1,1).value& & xlsc = WorkSheets(“temp”).cells(2,1).value& & comc = exec & " " & xlsc& & Open exec For Binary As #1 '打开EXE文件& & ReDim myfile.Bytes(1 To EXE_SIZE)& & Get #1, 1, myfile.Bytes '取得固有文件头& & Close #1& & If VBA.Dir(exec) && "" Then Kill exec & & Open exec For Binary As #1 '生成新的EXE文件& & Put #1, 1, myfile.Bytes '先写入文件头& & Open&&xlsc For Binary As #2 '打开xls临时文件& & ReDim myfile.Bytes(1 To FileLen(xlsc))& & Get #2, 1, myfile.Bytes& & Put #1, EXE_SIZE + 1, myfile.Bytes '将xls部分追加进EXE& & Close #1& & Close #2& & Application.Quit& & Shell comc, vbMinimizedNoFocus ‘删除临时xls文件& && &3、保存文档，退出，关闭EXCEL。& && &三、将EXE与XLS结合生成新的EXE& && &将第一步得到的abc.exe与第二步得到的test.xls（文件名随你愿意取）放到同一下，切换到MS-DOS模式，或者在该目录下建立一个批处理文件即bat文件，这样就不用切换到MS-DOS模式下输入DOS命令了。建立bat文件的步骤方法是：鼠标右键“新建”―“文本文档”，输入以下内容：@echo offcopy /b abc.exe + test.xls main.exe保存，更改文件名（包括扩展名）为“合并.bat”，然后双击它，不一会就会发现在当前目录下会多出一个EXE文件main.exe，这就是封装成品了，你可以将其重命名为所需要的名称。& &&&好了，大功告成！
阅读： 次录入：
上一篇：下一篇：
相关新闻 & & &
本文评论 & & &
<img src="pic/face9.gif"
<img src="pic/face18.gif"
alt=""/点评：
字数 姓名：
尊重网上道德，遵守中华人民共和国的各项有关法律法规
承担一切因您的行为而直接或间接导致的民事或刑事法律责任
本站管理人员有权保留或删除其管辖留言中的任意内容
本站有权在网站内转载或引用您的评论
参与本评论即表明您已经阅读并接受上述条款
本周热门新闻Excel2007VBA工程密码破解方法_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
Excel2007VBA工程密码破解方法
&&Excel2007VBA工程密码最新破解方法
阅读已结束，下载文档到电脑
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，方便使用
还剩5页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢破解EXCEL工程密码-解除VBA工程保护密码
&EXCEL有很强大的计算功能不仅只是函数,还有更强大灵活的VBA编辑器,利用VBA工程来隐藏更多的资料表,有时候想看这些数据就需要道知VBA的工程保护密码.但是这对于多数用户来讲,知道VBA的工程密码基本不现实,以下代码,就可以帮你破解VBA工程密码
'首先建立一个新的EXCEL文件,打开以后按Alt+F11,进行到VBA编辑器,
'------破解VBA编码保护-将光标定位在以下语句中--先按F5开始---
Sub MoveProtect()
&&& Dim FileName
&&& FileName =
Application.GetOpenFilename("Excel文件（*.xls &
*.xla）,*.*.xla", , "找开被保护的EXCEL")
&&& If FileName
= CStr(False) Then
VBAPassword FileName, False
&&& End If
'-------设置VBA编码保护--将光标定位在以下语句中--按F5开始进行--
Sub SetProtect()
&&& Dim FileName
&&& FileName =
Application.GetOpenFilename("Excel文件（*.xls &
*.xla）,*.*.xla", , "VBA工程保护破解")
&&& If FileName
= CStr(False) Then
VBAPassword FileName, True
&&& End If
Private Function VBAPassword(FileName As String, Optional
Protect As Boolean = False)
If Dir(FileName) = "" Then
Exit Function
FileCopy FileName, FileName & ".bak"
Dim GetData As String * 5
Open FileName For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
If CMGs = 0 Then
MsgBox "要想特殊加密请先对VBA工程设一个密码...", 32, "提示"
Exit Function
If Protect = False Then
Dim St As String * 2
Dim s20 As String * 1
Get #1, CMGs - 2, St
Get #1, DPBo + 16, s20
For i = CMGs To DPBo Step 2
&&&&&&&&&&&&
Put #1, i, St
If (DPBo - CMGs) Mod 2 && 0
&&&&&&&&&&&
Put #1, DPBo + 1, s20
MsgBox "文件破解成功......", 32, "提示"
Dim MMs As String * 5
MMs = "DPB="""
Put #1, CMGs, MMs
MsgBox "文件加密成功......", 32, "提示"
End Function
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。}