exc e l保護密碼破解(絕對經典)
如果你的E xce l文件設置了保護密碼而遺忘了 ,那麼請依照下面的步驟來操作.簡 ,也許會有奇跡出現. .不需要多麼高難度的操作和專業的軟件支持 單.方便.費時一般最多兩分鐘 (建議:操作前把原文件COPY一份)
方法:
打开文件
工具---宏----录制新宏---输入名字如 :aa
停止录制(这样得到一个空宏 )
工具---宏----宏,选aa,点编辑按钮
删除窗口中的所有字符 (只有几个),替换为下面的内容 :(复制吧)
关闭编辑窗口
工具---宏-----宏,选Al l I nternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了! !内容如下
Publ ic Sub Al l InternalPasswords()
'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 Harkerand JE McGimpsey27-Dec-2002(Version 1 .1 )
'Modified 2003-Apr-04 by JEM:Al l msgs to constants,and
'el iminate one ExitSub(Version 1 .1 .1)
'Reveals hashed passwords NOT original passwords
Const DBLSPACE As String=vbNewLine&vbNewLine
ConstAUTHORS As String=DBLSPACE&vbNewLine&_
"Adapted from Bob McCormick base code by"&_
"Norman Harkerand JE McGimpsey"
Const HEADER As String="Al l InternalPasswords User Message"
ConstVERSION As String=DBLSPACE&"Version 1 .1 .1 2003-Apr-
04"Const REPBACK As String=DBLSPACE&"Please report fai lure"
&_"to the microsoft.publ ic.excel .programming newsgroup."
ConstALLCLEAR As String=DBLSPACE&"The workbook should"&
_"now be free of al l password protection,so make sure you:"&_
DBLSPACE&"SAVE IT NOW!"&DBLSPACE&"and also"&
_DBLSPACE&"BACKUP! ,BACKUP! ! ,BACKUP! ! !"&_
DBLSPACE&"Also, remember that the password was"&_
"put there for a reason.Don't stuff up crucial formulas"&_
"or data."&DBLSPACE&"Access and use of some data"&
_"maybe an offense. If in doubt,don't."
Const MSGNOPWORDS1 As String="There were no passwords on"&_"sheets,or workbook structure or windows."&AUTHORS&VERSIONConst MSGNOPWORDS2 As String="There was no protection to"&_"workbook structure or windows."&DBLSPACE&_"Proceeding tounprotectsheets."&AUTHORS&VERSION
Const MSGTAKETIME As String="After pressing OK button this"&_"wi l l take some time."&DBLSPACE&"Amount of time"&_"dependson how many different passwords, the"&_
"passwords,and your computer's specification."&DBLSPACE&_"Just be patient!Make me a coffee!"&AUTHORS&VERSIONConst MSGPWORDFOUND1 As String="You had a Worksheet "&_"Structure orWindows Password set."&DBLSPACE&
_
"The password found was: "&DBLSPACE&"$$"&DBLSPACE&_"Note it down for potential future use in otherworkbooks by"&_"the same person who set this password."&DBLSPACE&_
"Nowto check and clear other passwords."&AUTHORS&VERSIONConst MSGPWORDFOUND2 As String="You had a Worksheet "&_"password set."&DBLSPACE&"The password found was: "&_DBLSPACE&"$$"&DBLSPACE&"Note it down for potential "&_"future use in otherworkbooks by same person who"&_
"set this password."&DBLSPACE&"Now to check and clear"&_"other passwords."&AUTHORS&VERSION
Const MSGONLYONE As String="Only structure/windows"&_"protected with the password thatwas justfound."&_
ALLCLEAR&AUTHORS&VERSION&REPBACK
Dim w1 As Worksheet,w2 As Worksheet
Dim i As Integer, j As Integer,kAs 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,WinTagAs Boolean
Appl ication.ScreenUpdating=False
With ActiveWorkbook
WinTag=.ProtectStructure Or .ProtectWindowsEnd With
ShTag=False
For Each w1 InWorksheets
ShTag=ShTag Or w1 .ProtectContents
Nextw1
If Not ShTag And NotWinTag Then
MsgBox MSGNOPWORDS1 ,vbInformation,HEADERExit Sub
End If
MsgBox MSGTAKETIME,vbInformation,HEADERIf NotWinTag Then
MsgBox MSGNOPWORDS2,vbInformation,HEADERElse
On Error Resume Next
Do'dummydo loop
For i=65 To 66:Forj=65 To 66:Fork=65 To 66For l=65To 66:Form=65To66:For i1 =65To66For i2=65 To 66:For i3=65 To 66:For i4=65 To 66For i5=65 To 66:For i6=65 To 66:For n=32 To 126With ActiveWorkbook
.UnprotectChr(i)&Chr(j)&Chr(k)&_
Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_
Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)
If .ProtectStructure=False And
_
.ProtectWindows=False Then
PWo rd 1 =C h r(i)&C h r(j)&C h r(k)&C h r(l)&_
Chr(m)&Chr(i1 )&Chr(i2)&Chr(i3)&_
Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)
MsgBox Appl ication.Substitute(MSGPWORDFOUND1,_"$$",PWord 1 ),vbI nformation,HEADER
Exit Do'Bypass al l for. . .nexts
End If
End With
Next:Next:Next:Next:Next:Next
Next:Next:Next:Next:Next:Next
Loop Unti l True
On ErrorGoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE,vbInformation,HEADERExit Sub
End If
On Error Resume Next
For Each w1 InWorksheets
'Attempt clearance with PWord1w1 .Unprotect PWord1
Nextw1
On ErrorGoTo 0
ShTag=False
For Each w1 InWorksheets
'Checks for al l clear ShTag triggered to 1 if not.ShTag=ShTag Or w1 .ProtectContents
Nextw1
If ShTag Then
For Each w1 InWorksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do'Dummydo loop
For i=65 To 66:Forj=65 To 66:Fork=65 To 66For l=65To 66:Form=65To66:For i1 =65To66For i2=65 To 66:For i3=65 To 66:For i4=65 To 66For i5=65To 66:For i6=65To 66:Forn=32To 126.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)
If Not .ProtectContents Then
PWo rd 1 =C h r(i)&C h r(j)&C h r(k)&C h r(l)&_
Chr(m)&Chr(i1 )&Chr(i2)&Chr(i3)&_
Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)
MsgBox Appl ication.Substitute(MSGPWORDFOUND2,_
"$$",PWord 1 ),vbI nformation,HEADER
' leverage finding Pword bytrying on othersheets
For Each w2 InWorksheetsw2.Unprotect PWord1
Nextw2
Exit Do'Bypass al l for. . .nexts
End If
Next:Next:Next:Next:Next:Next
Next:Next:Next:Next:Next:Next
Loop Unti l True
On ErrorGoTo 0
End If
End With
Nextw1
End If
MsgBox ALLCLEAR&AUTHORS&VERSION&REPBACK,vbInformation,HEADEREnd Sub
10gbiz怎么样?10gbiz 美国万兆带宽供应商,主打美国直连大带宽,真实硬防。除美国外还提供线路非常优质的香港、日本等数据中心可供选择,全部机房均支持增加独立硬防。洛杉矶特色线路去程三网直连(电信、联通、移动)回程CN2 GIA优化,全天低延迟。中国大陆访问质量优秀,最多可增加至600G硬防。香港七星级网络,去程回程均为电信CN2 GIA+联通+移动,大陆访问相较其他香港GIA线路平均速度更...
妮妮云的来历妮妮云是 789 陈总 张总 三方共同投资建立的网站 本着“良心 便宜 稳定”的初衷 为小白用户避免被坑妮妮云的市场定位妮妮云主要代理市场稳定速度的云服务器产品,避免新手购买云服务器的时候众多商家不知道如何选择,妮妮云就帮你选择好了产品,无需承担购买风险,不用担心出现被跑路 被诈骗的情况。妮妮云的售后保证妮妮云退款 通过于合作商的友好协商,云服务器提供2天内全额退款,超过2天不退款 物...
IMIDC是一家香港本土运营商,商家名为彩虹数据(Rainbow Cloud),全线产品自营,自有IP网络资源等,提供的产品包括VPS主机、独立服务器、站群独立服务器等,数据中心区域包括香港、日本、台湾、美国和南非等地机房,CN2网络直连到中国大陆。目前主机商针对日本独立服务器做促销活动,而且提供/28 IPv4,国内直连带宽优惠后每月仅88美元起。JP Multiple IP Customize...