Excel有密碼怎么破解,小編教你怎么破解
- 分類：Win7 教程 回答于： 2017年11月14日 13:00:42
EXCEL提供了14類100多種基本的圖表，可以直接填入數據，就可形成現實生活中的各種表格。如學生登記表，考試成績表，工資表，物價表等為我們的辦公提供了方便，也許出于安全考慮，一些用戶將其設置上密碼，那么如果忘記了密碼，該怎么去破解Excel密碼呢？別急，小編這就給大家提供破解的方法。
EXCEL表處理軟件是美國微軟公司研制的辦公自動化軟件OFFICE中的重要成員，作為辦公軟件，自然有其重要的數據，一些工作人員會將其設置密碼，但是就沒有打開，就會忘記密碼，那這可怎么辦呢？不用緊張，小編這就帶給大家破解Excel密碼的方法。
Excel有密碼怎么破解
打開需要破解的Excel文件
密碼圖-1
依次點擊菜單欄上的工具---宏----錄制新宏
破解密碼圖-2
輸入宏名字，然后停止錄制(這樣得到一個空宏，為后面添加vb代碼做準備)
Excel圖-3
依次點擊菜單欄上的工具---宏----宏,選易爾拓,點編輯按鈕；
刪除窗口中的所有字符,替換為下面的內容；
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 & _
"Adapted from Bob McCormick base code by" & _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all 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 " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks 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 that was just found." & _
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
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
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)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
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
.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
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
破解密碼圖-4
依次點擊菜單欄上的工具---宏-----宏,選AllInternalPasswords,執行,確定兩次
工作軟件圖-5
前面輸入的宏名 變成了AllInternalPasswords 點擊執行 會出現如下對話框 點確定
破解密碼圖-6
一直點 確定 直到不在 出現對話框為止。
破解密碼圖-7
破解密碼圖-8
等待一段之間之后 系統會 再次跳出對話框 再點確定 保護就破解成功了。
密碼圖-9
以上內容便是Excel密碼破解方法的操作步驟，下次請用戶在設置Excel密碼的時候盡可能的簡單一些，并記錄下密碼備份，避免再次需要使用宏。
有用
26
分享
轉載請注明：文章轉載自 m.8x4b.com
本文固定連接：m.8x4b.com
小白系統
小白幫助
如果該頁面中上述提供的方法無法解決問題，您可以通過使用微信掃描左側二維碼加群讓客服免費幫助你解決。備注:人工客服僅限正常工作時間(周一至周六:9:00~12:00 2:00~6:00)
分享到
微信好友
朋友圈
QQ好友
QQ空間
新浪微博
復制鏈接取消
長按或點擊右側按鈕復制鏈接，去粘貼給好友吧~
http://127.0.0.1:5500/content.htmlhttp://127.0.0.1:5500/content.htmlhttp://127.0.0.1:5500/content.htmlhttp://127.0.0.1:5500/content.htmlhttp://127.0.0.1:5500/content.htmlhttp://127.0.0.1:5500/content.htmlhttp://127.0.0.1:5500/content.htmlhttp://127.0.0.1:5500/content.htmlhttp://127.0.0.1:5500/content.html
取消
復制成功
詳解win7激活方法兩種方法
10002022/11/07
2022年win7旗艦版永久激活最新密鑰神Key win7激活碼永久序列號免費激活大全
10002022/11/03
win7專業版激活密鑰2022 win7專業版激活密鑰永久激活碼
10002022/11/03
熱門搜索
win7激活密鑰專業版永久免費版大全
10002022/10/16
windows7系統如何恢復出廠設置
10002022/10/09
小白系統重裝win7的方法步驟
10002022/06/24
小白三步裝機系統win7怎么激活
10002022/06/23
win7重裝系統后連不上網怎么辦
10002022/06/13
電腦系統重裝windows7
10002020/03/17
一鍵裝機win7圖文詳解
10002020/01/30
猜您喜歡
- mds文件用什么打開,小編教你怎么打開m..2018/08/29
- windows7操作系統下載網址2022/11/20
- 安裝64位大白菜win7系統步驟..2020/07/09
- 分享win7重裝系統步驟u盤啟動..2023/03/30
- win7系統怎么安裝無線網卡驅動..2022/04/30
- 聯想win7ghost系統下載2017/07/13
相關推薦
- 電腦重裝系統教程win72022/10/31
- 華碩筆記本重裝系統Win7教程..2022/08/04
- win7 64位系統怎么安裝2022/09/19
- 教大家索尼筆記本一鍵重裝系統win7..2021/06/02
- 物理內存過高怎么辦,小編教你電腦物理..2018/07/19
- 聯想筆記本正版win7系統下載..2017/07/13
文章已經到底了，點擊返回首頁繼續瀏覽新內容。
