-
''
excel
工作表密码破解方法
在日常工作中,大家有时会遇到过这样的情况:使用
Excel
编制的报表、表格、程序等,在
单元
格中设置了公式、函数等,为了防止其他人修改您的设置或者防止您自己无意中修改,
您
可能会使用
Excel
的工作表保护功能,
但时间久了保护密码容易忘记,
这该怎么办?有时
您从网上
下载的
Excel
格式的小程序,您想修改,
< br>但是作者加了工作表保护密码,
怎么办?
您只要按照以下
步骤操作,
Excel
工作表保护密码瞬间
(
稍微有点夸张
)
即破!
打开您需要破解的
Excel
文件,如图所示:
''
1
、点击视图按钮依次录制宏
2
、输入名字入破解密码然后点确定
3
、查看宏然后编辑
''
4
、出现下图窗口
5
、
p>
删除窗口中的所有字符
,
替换为下面的内容
;
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
MSGONLYONE 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
For l = 65
To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66:
For i4 = 65 To 66
For i5 = 65 To 66:
For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) &
Chr(n)
-
-
-
-
-
-
-
-
-
上一篇:寓意好的成语公司起名
下一篇:PTN学习记录