如何破解excel宏的密码
2013-11-30 10:46
218 查看
http://zhidao.baidu.com/question/140107193.html 最近下载了一个excel模板,使用excel宏编的,但实际需要需更改一下,但是他设置了工作表密码保护,谁会破解宏工作表密码,请高手指教 ------------
首先建一新EXCEL文件,在工作表标签处右点>>检视程式码>> 复制以下代码>>按F8执行 在弹出窗中选你要你破解工程密码的EXCEL文件 >>再按F5执行即可. ********************
Private Sub VBAPassword() '你要解保护的Excel文件路径 Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解") If Dir(Filename) = "" Then MsgBox "没找到相关文件,清重新设置。" Exit Sub 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 Sub End If 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, "提示" Close #1 End Sub
相关文章推荐
- labview密码保护方式及如何保护labview密码不被破解
- 如何破解电脑开机密码
- 如何设置WiFi密码才不会被WiFi万能钥匙破解
- 如何破解Ubuntu root密码及防止别人通过单用户模式修改密码(个人转载,可谓经典之作,层层设密,层层破解)
- dedecms后台20位密码解密、32位24位的DEDE密码如何破解
- 如何防范密码被破解
- 用BT3破解无线网络密码的教程以及如何制作U盘版和光盘版BT3
- 如何破解linux密码
- 如何破解EXCEL工作表保护密码
- 如何破解SOHU电子邮箱密码
- 网络学习(二十二)简单介绍如何破解Windows XP 用户密码
- 如何破解开机密码
- windows系统如何破解MySQL密码
- 如何破解Win7用户开机密码
- 【Linux系统】教您如何破解密码及防护
- 如何破解Red Hat Enterprise 4的root密码(救援没有密码)
- 如何将SQLServer 2000链接服务器的密码破解为明文
- 如何破解手机的九宫格密码
- 如何获得WPA握手包&EWSA破解WPA密码教程[zz]
- 如何破解windows网页密码