-
破解
vbaproject
密码
1
.<
/p>
打开带密码的
Excel,
视图
---
宏
----
录制
宏
---
(
保存到)“个人宏工作簿”
---
点“确认”。
2
．
查看宏
--
点“编辑”
--
进入“
Microsofe visual
”页面；
3
.
点“模块
1
“，弹出“模块
1
代码”
----
清除“模块
1
代码”里面的东西
----
复制如下东
西：
Public Sub
工作表保护密码破解
()
Const DBLSPACE As String = vbNewLine &
vbNewLine
Const AUTHORS As String =
DBLSPACE & vbNewLine & _
作者
:
冷风
Const HEADER As String =
工作表保护密码破解
Const VERSION As String =
DBLSPACE &
版本
Version 1.1.1
Const REPBACK
As String = DBLSPACE &
Const ZHENGLI As
String = DBLSPACE &
hfhzi3
—戊冥
整理
Const ALLCLEAR
As String = DBLSPACE &
该工作簿中的工作表密码保护已全部解除
&
DBLSPACE &
请记得另保存
II
& DBLSPACE &
注意：不要用在不当地方，要尊重他人的劳动成果！
Const
MSGNOPWORDS1 As String
=
该文件工作表中没有加密
2
String =
Const MSGTAKETIME As String =
该文件工作表中没有加密
解密需花费一定时间
,
请耐心等候
确
!
定开始破解
!
As String =
密码重新组合为
:
DBLSPACE &
DBLSPACE & _
如果该文件工作表有不同密码
,
将搜索下一组密码并修改清除
Const
MSGPWORDFOUND2
As String =
密码重新组合为
:
DBLSPACE &
DBLSPACE & _
如果该文件工作表有不同密码
Const MSGONLYONE As String =
,
将搜索下一组密码并解除
确保为唯一的
?
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As
Integer, l As Integer
Dim m As Integer,
n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As
Integer, i6 As Integer
Dim PWord1 As
String
Dim ShTag As Boolean, WinTag As
Boolean
Updating = False
With ActiveWorkbook
WinTag =
.ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or tContents
Next w1
If Not ShTag And Not
WinTag Then
MsgBox MSGNOPWORDS1,
vbInformation, HEADER
Exit Sub
End If
!!