全国笔记本、surface寄修淘宝店:15weixiu.taobao.com

当前位置:IT门户网 > 办公软件 > Excel教程 >

excel2013暗码破解的要领

时间:2021-07-22    来源:IT门户网    人气:

  在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暗码破解的教程

4.excel2010 vba 暗码破解的要领

5.excel2013关于暗码配置的教程

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

7.excel如何破解暗码

相关文章

Excel教程排行榜

更多>>

网络知识排行榜

更多>>

系统教程排行榜

更多>>

微信号