破解EXCELVBA工程密码.pdf

破解EXCELVBA工程密码 在实际工作中，我们经常会遇到Excel文件被VBA工程密码保护的情况，这使得我们无法查看或编辑这些文件。那么如何破解这些VBA工程密码保护下的Excel文件呢？本文将为您提供一个有效的方法来破解EXCEL VBA工程密码。 我们需要了解什么是VBA工程密码保护。当我们在Excel中创建一个宏时，Excel会自动将其编译成一个可执行文件，以防止其他人查看或编辑我们的代码。但是，如果我们忘记了密码，或者我们需要查看或编辑他人的Excel文件时，VBA工程密码保护就会变得非常麻烦。 解决这个问题的方法是使用VBA代码来破解EXCEL VBA工程密码。我们可以使用Visual Basic Editor（ALT+F11）打开VBA编辑器，然后在工作表标签中右键>>检视程式码>>复制以下代码>>按F8执行： Private Sub CommandButton1_Click() Worksheets("这里为你要显示的工作表名称").Visible = True End Sub 这段代码将显示隐藏的工作表，但是这只是一个小技巧。要真正破解EXCEL VBA工程密码，我们需要使用更复杂的代码。下面是一个破解EXCEL VBA工程密码的代码： 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编码设置一个保护密码..." Exit Sub End If If Protect = False Then 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, "提示 " End If Close #1 End Sub 这个代码将帮助我们破解EXCEL VBA工程密码保护下的文件。我们可以创建一个新的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编码设置一个保护密码..." Exit Sub End If If Protect = False Then 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, "提示 " End If Close #1 End Sub 破解EXCEL VBA工程密码保护下的文件需要使用VBA代码来实现。我们可以使用上述代码来破解EXCEL VBA工程密码保护下的文件，但是需要注意的是，这个方法可能不能破解所有的VBA工程密码保护下的文件。