zoukankan      html  css  js  c++  java
  • 破解vba工程密码

    https://blog.csdn.net/baidu_30129309/article/details/52244242

    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

  • 相关阅读:
    Js $.merge() 函数(合并两个数组内容到第一个数组)
    11.联结表---SQL
    函数作用域
    递归特性
    计算递归函数理解
    递归、问路函数
    全局变量用大写,局部变量用小写
    全局变量与局部变量
    函数形参和实参
    函数和过程
  • 原文地址:https://www.cnblogs.com/lidapengwww/p/12831026.html
Copyright © 2011-2022 走看看