-
如何破解
excel
加密
绝对能用
1
打开文件
2
工具
--
-
宏
----
录制新宏
---
输入名字如
:aa
3
停止录制
(
这样得到一个空宏
)
4
工具
--
-
宏
----
宏
,
选
aa,
点编辑按钮
5
< br>删除窗口中的所有字符
(
只有几个
),
替换为下面的内容
:(
你复制吧
)
Option Explicit
Public Sub
AllInternalPasswords()
' Breaks worksheet and workbook
structure passwords. Bob McCormick
' probably originator of
base code algorithm modified for coverage
' of workbook
structure / windows passwords and for multiple
passwords
'
' Norman Harker
and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified
2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one
Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original
passwords
Const
DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS
As String = DBLSPACE & vbNewLine & _
Const HEADER As String =
Const VERSION As String =
DBLSPACE &
Const REPBACK As String = DBLSPACE &
Const ALLCLEAR As String =
DBLSPACE &
DBLSPACE &
DBLSPACE &
DBLSPACE &
Const MSGNOPWORDS1 As String =
Const MSGNOPWORDS2 As
String =
Const MSGTAKETIME As String =
Const MSGPWORDFOUND1 As String =
Const MSGPWORDFOUND2 As String =
DBLSPACE &
Const MSGONL
YONE As String =
ALLCLEAR & AUTHORS &
VERSION & REPBACK
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
MsgBox MSGTAKETIME,
vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2,
vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
For i = 65 To
66: For j = 65 To 66: For k = 65 To 66