excel获取vba密码

① 获取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编码设置一个保护密码...", 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

② Excel 表格“VBAProject密码”忘记了，如何解除

准备工具：表格，电脑，OFFICE密码破解软件（OfficeToolbox软件）

1.打开BOX软件，在软件页面中找内到文件选择容选项，点击该选项进入到文件选择页面中。

③ Excel表格VBAProject密码忘记了如何解除

当Excel表格中的VBAProject密码被遗忘时，可以通过以下步骤尝试解除密码保护：

1. **修改文件扩展名**：首先，将Excel文件的扩展名从`.xlsm`更改为`.rar`或`.zip`，因为Excel文件实际上是以压缩格式存储的。这一步是为了能够访问文件内部的内容。

2. **解压文件**：使用WinRAR或类似的压缩软件打开更改扩展名后的文件，并解压到一个文件夹中。

3. **查找并修改vbaProject.bin文件**：在解压后的文件夹中，找到`xl`目录下的`vbaProject.bin`文件。这是一个二进制文件，其中包含了VBA工程的密码信息。

4. **编辑vbaProject.bin文件**：使用合适的二进制编辑器（如Hex Editor）或文本编辑器（如Notepad++，并确保以二进制或十六进制模式打开）打开`vbaProject.bin`文件。查找特定的字符串（如“DPB=”）并将其修改（如改为“DPx=”，注意保持修改前后字符串长度一致）。这一步是破解密码的关键。

5. **替换并重新打包文件**：将修改后的`vbaProject.bin`文件替换回原解压文件夹中的对应位置，然后重新使用压缩软件将该文件夹打包为`.rar`或`.zip`文件，并将扩展名改回`.xlsm`。

6. **打开Excel文件**：使用Excel打开修改后的`.xlsm`文件，此时可能会收到一些错误提示，选择忽略或继续。在VBA编辑器中，右键点击VBAProject（项目），选择“VBAProject属性”，然后在“保护”选项卡中取消勾选“查看时锁定工程”或重新设置一个新密码（如果需要）。

请注意，上述方法可能涉及对文件结构的直接修改，因此在进行操作前务必备份原始文件以防数据丢失。此外，由于不同版本的Excel和VBA保护机制可能有所不同，因此上述方法在不同情况下可能有所差异或不完全有效。