zoukankan      html  css  js  c++  java
  • 如何破解excel宏的密码

    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


  • 相关阅读:
    信息安全
    软件体系结构原理、方法与实践总结
    软件项目管理四个核心价值观
    博客园主题修改
    测试
    Java实现人民币大写精讲
    Windows系统性能提升方法
    Oracle系列之游标
    Oracle系列之异常处理
    Oracle系列之权限
  • 原文地址:https://www.cnblogs.com/karkash/p/3450725.html
Copyright © 2011-2022 走看看