excel2013打开密码破解 excel2013密码破解的方法

在Excel中经常录入一些重要的数据时人们的习惯,但过了一段时间后就已经忘记了,这个时候就需要进行密码破解,如果不懂的朋友可以学习一下,接下来是小编为大家带来的excel2013密码破解的方法,希望对你有用。

excel2013密码破解的方法:

密码破解步骤1:将你要破解的Excel文件关闭,切记一定要关闭呀!然后新建一个Excel文件

密码破解步骤2:打开新建的这个Excel,按下alt+F11,打开vb界面,新建一个模块,如图所示

密码破解步骤3:将代码复制到这个模块中,代码如下:

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

密码破解步骤4:然后点击运行按钮,如图所示,绿色的小三角就是

密码破解步骤5:你会看到,打开了一个文件夹,找到我们要破解的这个文件,然后点击打开

密码破解步骤6:稍等几分钟你就会看到破解成功的提示了

密码破解步骤7:再次打开你要破解的这个文件,你会看到这里已经可以查看代码了哈哈

看了excel2013密码破解的方法还看了:

1.Excel文件密码破解汇总

2.excel2013关于VBA密码破解的教程

3.excel2003密码破解的教程

excel2013打开密码破解 excel2013密码破解的方法

4.excel2010 vba 密码破解的方法

5.excel2013关于密码设置的教程

6.关于excel2013的激活密钥分享

7.excel如何破解密码

  

爱华网本文地址 » http://www.413yy.cn/a/230261/917559871.html

更多阅读

被破解的森林密码三篇 遗忘的森林破解中文版

此组文前二篇已发中国农村杂志社《美好生活·美丽乡村》2012年11月号萧克将军来过/带着战士们/保护着一方草木//诗人北岛来过/将美的词汇/遗落在花丛中了小桥流水依然在/瘦马昏鸦未现身/绿树葱茏藏古道/天涯已是美乡村山上古庙里

至今未能破解的中国三大藏宝谜案 dnf封印的藏宝地

至今未能破解的中国三大藏宝谜案本文作者 倪方六“南澳1号”明代古沉船打捞,吊起了不少读者对地下宝藏的兴趣。目前,打捞上来的物品主要是瓷器,虽然算是文物,但其价值到底能有多高,还是要到考古全部结束,专家研究后,才能有个大概。“南

易语言5.11完美破解版 易语言5.11完美破解的方法

大家好,今天分享给大家是如何完美破解易语言,让他可以正常静态编译。虽然下面是破解的方法,但是大家如果有钱还是请购买正版!好了,下面介绍步骤!第一步,去官网下载易语言的最新版本!第二步,下载雪风破解补丁 可以去我提供的地址下载http:

excel设置打开密码 Excel2013怎么设置打开密码?

前面我们了解了给Excel2013中特定区域单元格加密的方法,现在,小编要给大家分享的是,如何在Excel2013中设置打开密码,完成之后需要密码才能打开这个工作表哦。操作步骤如下:1、用Excel2013打开需要加密的工作表,单击“文件”按钮,然后从弹

声明:《excel2013打开密码破解 excel2013密码破解的方法》为网友缠绵热浪分享!如侵犯到您的合法权益请联系我们删除