Ⅰ excel表格保護密碼忘了怎麼辦
在使用 Excel 的時候，都會講excel給設置了密碼，以防他人篡改或誤刪數據。但時間長了，密碼卻忘記了，這是該如何是好。下面讓我為你帶來excel表格保護密碼忘了的解決 方法 。
excel密碼解除步驟如下：
1、打開excel，點擊菜單欄的「視圖」，點擊二級菜單里的「宏」，選擇錄制宏。
2、在彈出來的方框中輸入宏的名字，點擊確認。
3、重復第一步的步驟，不過這次點擊「停止錄制」。
4、選擇查看宏。
5、編輯宏。
6、在彈出來的代碼框輸入下面的代碼。
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 'mmy 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
excel表格保護密碼忘了怎麼辦相關 文章 ：
★ excel表格保護密碼忘記了的解決方法
★ excel表格保護密碼忘了怎麼辦
★ excel表設置密碼後忘記了如何打開怎麼辦
★ Excel中進行忘記保護密碼的處理技巧
★ excel表設置密碼忘記如何打開
★ excel2010密碼保護忘記的解決方法
★ excel2007怎麼設密碼忘記了怎麼辦
★ Excel中表格工作表保護密碼撤銷的操作方法
var _hmt = _hmt || []; (function() { var hm = document.createElement("script"); hm.src = "https://hm..com/hm.js?"; var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(hm, s); })();Ⅱ 設置的工作表保護密碼忘記了怎麼辦
1、首先打開要保護的Excel表格，然後點擊上面的「審閱」菜單。
Ⅲ excel加密後忘記密碼怎麼辦附解決方法
以前用微軟Excel做的表格，為了保護數據，設置了加密，現在好長時間不用，現在忘了密碼該怎麼辦呢?這里小編有一個很方便的方法，如果你也遇到這種問題，不妨來看下小編提供的解決方法吧!
excel加密後忘記密碼怎麼辦
1、下載Excel破解密碼軟體
2、下載完以後打開程序
3、點擊最右邊的小圖標，選擇你要解壓的Excel文件
4、選好後點擊「移除密碼」，然後會出來一個對話框，點擊確定即可
5、軟體開始解密，只需幾秒鍾就可解密成功。
6、解密結束後在可以軟體最下面，打開Excel。同時你放Excel的地方會多出一份同樣的Excel，但這個是解密後的，你可以直接打開
excel工作表保護密碼忘記怎麼辦
1、首先打開設置了工作表保護的表格，可以看到，當我們試圖編輯時，會彈出這樣的對話框。
2、這時如果我們忘記了密碼，可以使用宏命令來將密碼顯示出來，然後輸入正確的密碼即可。具體操作時，要先將宏命令的相關工具按鈕調出來。單擊文件——選項——自定義功能區——在「開發工具」前打勾——確定。
3、單擊工具欄——開發工具——宏，新建宏。然後保存。
4、編輯該宏，復制下列代碼粘貼到宏的內容中去。
Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
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
ActiveSheet.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 ActiveSheet.ProtectContents = False Then
MsgBox One usable password is
Chr(i)
Chr(j)
_
Chr(k)
Chr(l)
Chr(m)
Chr(i1)
Chr(i2)
_
Chr(i3)
Chr(i4)
Chr(i5)
Chr(i6)
Chr(n)
ActiveWorkbook.Sheets(1).Select
Range(a1).FormulaR1C1 = Chr(i)
Chr(j)
_
Chr(k)
Chr(l)
Chr(m)
Chr(i1)
Chr(i2)
_
Chr(i3)
Chr(i4)
Chr(i5)
Chr(i6)
Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
5、保存之後，運行該宏，即可彈出顯示密碼的窗口。單擊確定，然後輸入密碼即可實現解鎖。
6、如果點擊宏時出現錯誤提示，則可能是因為你的excel沒有啟用宏。操作方法如下：單擊文件——選褲凳友項——信任中心——信任中心設置——宏設置——點啟用所有宏。然後確定。
4大破解工具介紹
1、Accent OFFICE Password Recovery
特點：成功破解過的密碼都會被記錄下來用作下一次破解，破解已經胡槐破解過文檔不費吹灰之力。
2、Office Password Remover
特點：在線秒殺所有採用普粗敏通加密方式的「.doc」、「.xls」、「.ppt」文檔。
缺點：付款才能看到完整的被破解的文檔，必須上網才能用。
3、Advanced Office Password Recovery
特點：功能無比強大，如果上面兩款都破解不了，這款是最終武器。
4、Office Password Unlocker
特點：由於前三款Excel密碼破解工具已經夠用，這款功能其實也不差，但對筆者而言是湊數用。
Ⅳ excel表格密碼忘記了怎麼辦
excel表格密碼忘記了 的具體解決步驟如下：
1、首先我們找到需要打開的Excel表格，將表格的後綴名改成「rar」，回車確定變成壓縮包。
密碼保護
Microsoft Excel中的密碼保護提供了幾種類型：
利用密碼以打開一個文檔；
利用密碼以修改文檔；
利用密碼以取消保護工作表；
利用密碼以保護工作簿；
利用密碼以保護共享工作簿。
Ⅳ excel表格忘記密碼怎麼解除保護（excel表格忘記密碼怎麼打開）
您好,現在我來為大家解答以上的問題。excel表格忘記密碼怎麼解除保護，excel表格忘記密碼怎麼打開相信很多小夥伴還不知道,現在讓我們一起...
您好,現在我來為大家解答以上的問題。excel表格忘記密碼怎麼解除保護，excel表格忘記密碼怎麼打開相信很多小夥伴還不知道,現在讓我們一起來看看吧！
1、excel表格密碼忘記了 的具體解決步驟如下：首先我們找到需要打開的Excel表格，將表格的後綴名改成「rar」，回車確定變成壓縮包。
2、2、然後我們點擊打開壓縮包，找到一個文件夾為xl的，點擊打開它。
3、3、然後我們在彈出來的窗口中找到裡面的sheet1文件，然後將其拖出。
4、4、 之後我們右鍵單擊拖出來的文件，打開選擇文本模式的方式並選擇編輯。
5、5、然後我們在彈出來的窗口，中在「編輯選項」中，選擇「查找」，鍵入「protect」以查找它，然後將該條帶與范圍符號一起刪除就可以了。
6、密碼保護Microsoft Excel中的密碼保護提供了幾種類型：利用密碼以打開一個文檔；利用密碼以修改文檔；利用密碼以取消保護工作表；利用密碼以保護工作簿；利用密碼以保護共享工作簿。