excel加密後忘記密碼怎麼辦

『壹』 EXCEL文件上加密了，可是忘記了密碼，怎麼辦

樓主的是暴力破解器，如果你設置的密碼超過8+的話
那就很難破解！
office密碼破解器
office
password
remover
v1.0.0.2
這個也許可以幫助你

『貳』 對於excel加密文件，忘記密碼了怎麼辦

可以聯系加密軟體的客服或者開發人員試試，我之前也遇到過這樣的事情。

我之前用的文件夾保護3000，可以對文件夾進行加密碼、隱藏和偽裝保護，方便快捷地幫您解決重要文件夾的保密問題。

軟體保密性好。文件夾加密碼後，打開文件夾要輸入正確密碼，而且在任何環境下均不失效。文件夾隱藏後，在任何環境下不通過本軟體無法找到。文件夾偽裝後就變成了偽裝的對象，即便打開也看不到文件夾里原有的文件。

軟體對文件夾加密碼、隱藏或偽裝時速度特別快，無論文件夾大小。軟體採用的是成熟、優秀的數據保護技術，安全性高。加密碼文件夾使用完畢後，會自動恢復到加密碼狀態，無須再次加密碼。

『叄』 excel表格加密文檔忘記密碼怎麼辦

樓主的這個情況要分2種情況：

第一是在辦公軟體中設置加密密碼的，只要記住密碼就可以了，如果忘記的話盡量想起來，實在不行那就看之前有沒有備份，或者重新製作了。

第二就是採用了綠盾文件加密軟體加密或者是其他的品牌的加密軟體；

• 如果是管理員的許可權，直接右鍵加密菜單就會看到「批量解密」，直接點「批量解密」即可；

• 如果是員工的許可權，將加密的ppt文件申請解密，管理員同意後即可解密了。

『肆』 Excel加密了，忘記密碼，怎麼打開

xls表格加密後,密碼忘記了，這個要看您用什麼方法加密的，然後聯系這個加密方法的客服，看看這個問題該怎麼解決。
給文件加密，我用的是文件夾加密超級大師。
文件夾加密超級大師的閃電和隱藏加密自帶的有密碼恢復功能，我建議您可以試試。

『伍』 Excel加密了，忘記密碼，怎麼打開

excel密碼忘記了怎麼辦【方法介紹】
(1)EXCEL文件的加密： 1、先來看看如何針對EXCEL文件進行加密，首先打開要加密的EXCEL文件，然後選擇菜單的「文件」->「另存為」，在打開的「另存為」窗口中選擇右上角的「工具」->「WEB選項」
2：之後就會自動彈出一個窗口，裡麵包括了對打開許可權密碼以及修改許可權密碼的設置選項，添加對應密碼後確定即可。和WORD文檔加密一樣需要確認輸入的密碼，確認後關閉保存窗口。
3：這樣每次打開該EXCEL文件後都會首先彈出打開密碼輸入對話框，只有輸入正確的密碼才能夠查看裡面的內容。通過以上幾步完成了對EXCEL文檔的加密工作。那麼excel密碼破解方法有哪些呢?
(2)EXCEL文檔密碼破解不求人

『陸』 如何解鎖excel中的密碼忘了怎麼辦

Excel保護密碼若是忘記，可通過以下步驟進行解鎖：

所需材料：解壓軟體（這里用的WINRAR）、Excel2007演示。

一、下圖中這個表格文件被保存，雙擊表格內單元格內會彈出該表格為只讀，那麼開始破解該表格。

注意事項：

1、第五步查找的內容「sheetPro」中，「P」必須是大寫，其他字母必須全部為小寫，否則找不到。

2、第六步選中的是「sheetPro」所在尖括弧內的全部內容，包含尖括弧。

3、若是使用能夠在壓縮包內修改的壓縮軟體，第三步可跳過，直接在壓縮包內進行修改。

『柒』 Excel的保護密碼忘記了怎麼辦，急用

有兩種方法可以解決：

方法1：使用密碼破解程序破解。以下為具體方法：

1打開文件

2工具---宏----錄制新宏---輸入名字如:aa

3停止錄制(這樣得到一個空宏)

4工具---宏----宏,選aa,點編輯按鈕

5刪除窗口中的所有字元(只有幾個),替換為下面的內容:(復制吧)

6關閉編輯窗口

7工具---宏-----宏,選AllInternalPasswords,運行,確定兩次,等2分鍾,再確定.OK,沒有密碼了!!

內容如下：

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

再用該密碼給保護，原來使用者的密碼同樣能打開。

方法2：使用壓縮包解決。

• 將文件後綴名改為RAR。

• 打開壓縮包文件，找到一個xml文件，用文本方式打開。

• 打開之後，找到代碼pssword 語句，將該句刪掉。

• 再將後綴名改為xls，再打開就沒有密碼了。

『捌』 excel設置的密碼忘記了怎麼辦

打開文檔後，通過文件菜單中「另存為」，將文檔存為rtf格式。保存好文件後，先關掉文檔再打開另存的文件，選擇工具欄中的「解除文檔保護」命令，不用填寫密碼就可以解除此文件的「文檔保護功能」，而且任何信息都不會丟失。用Office Password Remover這個軟體可以打開。
使用方法：
首先運行解壓好的OPRemove.exe 這個程式，打開程式後能看到中間文本框後面有個類似目錄的按鈕。
選擇後出現下圖的畫面，點擊移除密碼。
呆幾秒鍾後便出現「該文件已被成功破解」，點確定即可，這時候就大功告成了。 在這里要注意的是，破解後的文章名字會有點變化，加了「DEMO」這四個字母，翻譯過來就是示範的意思，不必在意，重命名去掉就能了。

『玖』 excel鎖定後忘記密碼怎麼辦

excel鎖定後忘記密碼的解決辦法
首先打開設置了工作表保護的表格，可以看到，當我們試圖編輯時，會彈出這樣的對話框。
這時如果我們忘記了密碼，可以使用宏命令來將密碼顯示出來，然後輸入正確的密碼即可。具體操作時，要先將宏命令的相關工具按鈕調出來。單擊文件——選項——自定義功能區——在「開發工具」前打勾——確定。
單擊工具欄——開發工具——宏，新建宏。然後保存。
編輯該宏，復制下列代碼粘貼到宏的內容中去。
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
保存之後，運行該宏，即可彈出顯示密碼的窗口。單擊確定，然後輸入密碼即可實現解鎖。
如果點擊宏時出現錯誤提示，則可能是因為你的excel沒有啟用宏。操作方法如下：單擊文件——選項——信任中心——信任中心設置——宏設置——點啟用所有宏。然後確定。

『拾』 excel加密後忘記密碼了，怎麼辦

只要知道密碼特徵，根據組合遍歷嘗試，一般情況下是可以解密的。

舉例說明。

將文件sample保存為帶密碼的文件，密碼設置為「123」。如圖：

說明：1、這段程序僅適用於純數字的密碼；

2、如果知道密碼的基本特徵，對上述代碼進行適當的修改，基本也可以實現。