特殊情况excel查看加密源码。

sunto

声明：仅供研究，请尊重他人成果。
有些excel打开，会无菜单栏，编辑栏的情况。这个是作者为了使用给隐藏了。并且表格加密了，无法通过快捷键调出。
这个时想要看到源码就有点困难。下面为大家分享一种方法 xls
因为文件是xls结尾的那破解就相对容易，但破解以后却无法看到源码。
1.破解以后我们可以通过录制宏（下面有一个按钮点击就可以了），定义一个ctrl+任意字母的快捷键。然后点击确定。你随便在工作表中点点。
2.然后按Ctrl+你定义的那个字母。他会报错，点击调试。然后删了sub.....() 和 end sub

然后点击运行他会弹出运行哪个。因为已经破解了密码所以可以直接查看了。

3.剩下的自己研究就行。

xlsm请看我另外一个帖子。

xls的破解等会给源码来破解。

sunto

Private Sub VBAPassword() '你要解保护的Excel文件路径
Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt;*.xlsm", , "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
新建工作表，插入模块，运行，选择你要破解的那个。

sunto

声明：仅供研究，请尊重他人成果。 有些excel打开，会无菜单栏，编辑栏的情况。这个是作者为了使用给隐藏了。并且表格加密了，无法通过快捷键调出。 这个时想要看到源码就有点困难。下面为大家分享一种方法 xls 因为文件是xls结尾的那破解就相对容易，但破解以后却无法看到源码。 1.破解以后我们可以通过录制宏（下面有一个按钮点击就可以了），定义一个ctrl+任意字母的快捷键。然后点击确定。你随便在工作表中点点。 2.然后按Ctrl+你定义的那个字母。他会报错，点击调试。然后删了sub.....() 和 end sub 然后点击运行他会弹出运行哪个。因为已经破解了密码所以可以直接查看了。 3.剩下的自己研究就行。 xlsm请看我另外一个帖子。 xls的破解等会给源码来破解。

                               

sunto

Private Sub VBAPassword() '你要解保护的Excel文件路径
Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt;*.xlsm", , "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
新建工作表，插入模块，运行，选择你要破解的那个。