您的位置: 首页 > EXCEL技巧 > ExcelVBA >

教你解密Excel2013下VBA代码

时间:2013-12-03 整理:docExcel.net

VBA是Excel中比较难的部分,有些学习爱好者下载了别人的VBA模块来学习,但是却因为加了密码而看不到里面详细的程序,不过在强大的程序员面前,这都不是难事,下面,教大家怎么解密VBA代码。

①打开Excel2013,按下键盘上的ALT+F11键,打开VBA代码编辑器。插入新的模块。

②将下列代码复制进去,然后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

③这时会自动弹出一个窗口,我们打开需要进行解密的VBA文件。

④等待程序自动完成解密过程,最终解密成功,大家不要用到歪门邪道上面,我负不起这个责。

EXCEL表格加密忘记了,怎样解密 问题:EXCEL表格加密忘记了,怎样解密
回答:点 工具 下拉中的 选项 右上角的 安全性 栏, 可以看到输密码窗口, 输入后要保存一下,就设好密码了
中国银行要求外国公司提供设备源代码 问题:中国银行要求外国公司提供设备源代码
回答:...后门。 FBI 负责人 JamesB.Comey 最近号召美国政府开发一款解密钥匙来解密存储在 iPhone 手机以及其他设备中的信息,这无疑可以被拿来论证说,所有政府都需要进入敏感电脑系统的途径。 分析人士表示,就像此次对于银行的规定...
怎么打开加密EXCEL文件 问题:怎么打开加密EXCEL文件
回答:...要导出密钥,如果没有密钥,一旦重装系统,文件将无法解密,此处所说的无法解密虽说不是绝对无法解密,但解密的复杂程度非常大,即使微软工程师也很难做到,在微软社区有相关讨论。 另外,如果肯定没有采用过这种加...
做H5领域的DRM?APICloud推出Web App加密技术 问题:做H5领域的DRM?APICloud推出Web App加密技术
回答:...SS 和 Javascript 等代码进行加密,而在代码运行过程中实时解密,同时不会在本地浏览器中留下可追溯的痕迹。需要注意的是,APICloud 的加密方案只适用于在其平台上开放的 Web App,不对外开放也不具备普适性。 APICloud 还在不断...
《解密小米》给创业人的4个启示 问题:《解密小米》给创业人的4个启示
回答:...不低。我也再次聚焦小米,为此虔心阅读了好友王斌的《解密小米》一书。本书由互联网 IT 资深预言家王斌(笔名磐石之心)所著,详细解析了小米公司诞生到发展的全过程,以及小米如何创造了 4 年 160 倍惊人估值;深刻剖析了小...
Excel文件忘记了该怎么办 问题:Excel文件忘记了该怎么办
回答:...对本身都关上了大门,发信息来我这求救了。   加密解密从来就是两个冤家, 只要能你加密上去 , 就有的步伐  俗话说 道高一尺, 魔高一丈 , 就是这个意思.  但不是每小我私家都有这么高的道行,  有如些高妙的电...
相关推荐: