操作excel保护密码破解(绝对经典)

破解无线路由密码  时间:2021-04-20  阅读:()

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

香港E3-1230v2 16GB 30M 326元/月 数脉科技

官方网站:https://www.shuhost.com/公司名:LucidaCloud Limited尊敬的新老客户:艰难的2021年即将结束,年终辞旧迎新之际,我们准备了持续优惠、及首月优惠,为中小企业及个人客户降低IT业务成本。我们将持续努力提供给客户更好的品质与服务,在新的一年期待与您有美好的合作。# 下列价钱首月八折优惠码: 20211280OFF (每客户限用1次) * 自助购买可复制...

湖北50G防御物理服务器( 199元/月 ),国内便宜的高防服务器

4324云是成立于2012年的老牌商家,主要经营国内服务器资源,是目前国内实力很强的商家,从价格上就可以看出来商家实力,这次商家给大家带来了全网最便宜的物理服务器。只能说用叹为观止形容。官网地址 点击进入由于是活动套餐 本款产品需要联系QQ客服 购买 QQ 800083597 QQ 2772347271CPU内存硬盘带宽IP防御价格e5 2630 12核16GBSSD 500GB​30M​1个IP...

AkkoCloud(60元/月 ),英国伦敦CN2 1核 768 MB 内存 10 GB SSD 硬盘 600GB 流量 英国伦敦CN2 1核  1.5G  300Mbps

官方网站:https://www.akkocloud.com/AkkoCloud新品英国伦敦CN2 GIA已上线三网回程CN2 GIA 国内速度优秀.电信去程CN2 GIALooking Glass:http://lonlg.akkocloud.com/Speedtest:http://lonlg.akkocloud.com/speedtest/新品上线刚好碰上国庆节 特此放上国庆专属九折循环优惠...

破解无线路由密码为你推荐
力学迅雷腾讯周鸿祎alargarios5设置win7我研制千万亿次超级电脑IOJsios8支持ipad支持ipadx-routerX-Router这个软件有什么用重庆电信宽带管家中国电信电脑管家是什么?怎么样?
免费申请网页 cdn服务器 gomezpeer qq数据库 国外在线代理 域名接入 什么是服务器托管 ftp免费空间 空间购买 台湾google 畅行云 免费个人主页 网页加速 中国联通宽带测试 睿云 google搜索打不开 新网dns alexa世界排名 百度新闻源申请 最新优惠 更多