excel文件解密軟體

『壹』 excel文件解密軟體

不知道你說的電腦加密了是什麼概念，是怎樣加密的。
如果是RMS加密，不太好解決。
如果只是EXCEL加密，那麼找個破解軟體就可以搞定了，
但這兩種加密方式加密後，重新打開時都會提示你輸入密碼或者身份驗證。方便的話文件發來看看。

『貳』 可否傳給我：excel2010文件解密軟體非常感謝

您用什麼方法加密的，我建議您用什麼方法解密。

給excel2010文件加密，我使用的是超級加密3000.

超級加密 3000採用先進的加密演算法，使你的文件和文件夾加密後，真正的達到超高的加密強度，讓你的加密數據無懈可擊。

『叄』 excel文件密碼破解工具

方法如下：

1. 點擊視圖→宏→錄制新宏，新建一個宏，隨便取個名字，生成一個空的宏；

2. 選中剛新建的宏後點擊編輯按鈕；

3. ctrl+a全部選中後點擊delete刪除，將附件的txt內容粘貼進入。一個字母、標點符號都不能少不能錯；

『肆』 誰有好的免費的excel解密軟體

Excel—「撤銷工作表保護密碼」的破解並獲取原始密碼
在日常工作中，您是否遇到過這樣的情況：您用Excel編制的報表、表格、程序等，在單元格中設置了公式、函數等，為了防止其他人修改您的設置或者防止您自己無意中修改，您可能會使用Excel的工作表保護功能，但時間久了保護密碼容易忘記，這該怎麼辦？有時您從網上下載的Excel格式的小程序，您想修改，但是作者加了工作表保護密碼，怎麼辦？您只要按照以下步驟操作，Excel工作表保護密碼瞬間即破！
1、打開您需要破解保護密碼的Excel文件；
2、依次點擊菜單欄上的工具---宏----錄制新宏，輸入宏名字如:aa；
3、停止錄制(這樣得到一個空宏)；
4、依次點擊菜單欄上的工具---宏----宏,選aa,點編輯按鈕；
5、刪除窗口中的所有字元(只有幾個),替換為下面的內容；

從橫線下開始復制
------------------------------------------------------------------------------------------
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 '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
-----------------------------------------------------------------------------------------
復制到橫線以上
6、關閉編輯窗口；
7、依次點擊菜單欄上的工具---宏-----宏,選AllInternalPasswords,運行,確定兩次；
等一會,就會出現以下對話框：這就是Excel密碼對應的原始密碼(此密碼和原先設置的密碼都能打開此文檔。如果是別人的文檔，你又想恢復密碼設置，就可以用此密碼進行保護，他就能用他設置的密碼打開，你可以試試，很有趣的。字母一定要大寫)：

再點擊確定。Excel的原始密碼就被清除了!!

『伍』 用什麼軟體能破解帶有密碼的ExCeL文件

首先點擊「Word\Excel破解」標簽進入窗口，點擊「瀏覽」按鈕，選擇要解密的Word或Excel文件。
其次設置密碼的最小長度和最大長度，再設置從小到大還是從大到小。這些設置可以加快破解速度。
然後設置破解字元，即程序在哪些字元范圍取值。如我常常使用0-9數字作為密碼，因此就選中「數字(0-9)」選項。
最後點擊「開始」按鈕就可以窮舉密碼了。點擊「暫停」按鈕可以暫停程序的運行。如果點擊「停止並保存」按鈕則可停止程序的運行，並且保存進度，下次可以接著當前進度破解。調入進度的方法是點擊工具欄上的「設置」按鈕載入進度即可。找到密碼時會顯示在進度文本框中。
如果需要使用字典請選擇「密碼字典」選項，會彈出窗口，選擇相應的字典，然後點擊「確定」就OK了。如果使用自定義字典，可用文本文件設置字典，需要注意的是每行就一個密碼，如果你要製作生日密碼字典，可使用「多功能密碼破解軟體」贈送的「生日密碼字典生成工具」，它在本軟體的安裝目錄下。靈活使用密碼字典能夠有效地加快密碼破解速度。
小技巧：由於使用窮舉法破解速度很慢，可能需要幾十個小時，此時你只需點擊主界面
工具欄上的「設置」按鈕，在彈出的窗口中選中「破解完畢後關閉計算機」選項，那麼當計算機窮舉完所有密碼後會自動關閉計算機。當你下次開啟電腦後，只需點擊工具欄上的「日誌」按鈕，就能查看破解出的密碼了

『陸』 excel解密軟體

破解Excel工作表保護密碼

1\打開文件
2\工具---宏----錄制新宏---輸入名字如:aa
3\停止錄制(這樣得到一個空宏)
4\工具---宏----宏,選aa,點編輯按鈕
5\刪除窗口中的所有字元(只有幾個),替換為下面的內容:(你復制吧)
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 '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
6\關閉編輯窗口
7\工具---宏-----宏,選AllInternalPasswords,運行,確定兩次,等2分鍾,再確定.OK,沒有密碼了!!

保護可以的。你試試看吧！

『柒』 EXCEL表格密碼破解軟體

選中忘記密碼的表格，單擊滑鼠右鍵，選擇「重命名」，將Excel的擴展名修改為「.rar」。

『捌』 Excel表格有密碼有什麼破解軟體可以用的

直接用：破碼還真器，淘~寶有，如果是不能編輯列印，那1秒鍾就可以破開，如果是需要密碼才能打開的密碼，一般要30分鍾就能開了

『玖』 excel2007文件密碼忘了用什麼軟體能破解密碼

經常和辦公軟體打交道的人肯定知道，如果把加密文檔的密碼忘了就相當於將這個文件報廢了，那將會是一件多麼可怕的事情。今天為大家介紹一款軟體，可以在極短的時間里輕松破解Word和Excel文件的密碼，它就是Office
Password
Remover。
Office
Password
Remover破解密碼的速度很快，使用時需要連接到互聯網，因為要給軟體伺服器發送很少的數據並解密。不過大家可以放心，該軟體不會泄露任何個人隱私。
第一步:首先運行解壓好的OPRemove.exe
這個程序，打開程序後可以看到中間文本框後面有個類似文件夾的按鈕。
另外，為了防止別人用該軟體來破解Word或Excel文檔，也可以給該程序設置密碼。點擊「文件」菜單中的「設置訪問密碼」命令，然後在彈出的「設置訪問密碼」窗口在輸入兩遍登錄密碼即可。下次再運行該程序時，就會出現提示要求輸入運行程序密碼的窗口。
第二步:接著點擊該按鈕瀏覽打開要破解的Word或Excel文檔。確定後出現如圖的畫面，點擊「移除密碼」按鈕後。這時程序會彈出一個提示窗口，說明程序要連接互聯網來查找匹配的秘密才能進行破解，確定後就開始破解操作。
第三步:幾秒鍾後，便出現「該文檔已經被成功破解」的提示，點擊「確定」按鈕即可，這個時候文件破解就大功告成了。在這里要特別注意的是，破解後的文件名會有點變化，加了「DEMO」這四個字母，我們只要重命名去掉這四個字母就可以了。
麻煩採納，謝謝!

『拾』 excel軟體怎麼破解

我就用我自己的加密的excel文件叫大家怎麼破解清除excel密碼，首先打開有自己加密的excel文檔，如下圖：
教你如何輕松的破解excel 2010工作表密碼

excel2010和以前的版本有所不同，功能更人性化，更智能化。首先我們要做的是，載入宏文件，excel為宏設置默認是關閉的，我們要啟用宏，就必須開啟宏；「文件」下的子菜單」選項「

如下圖所示：
教你如何輕松的破解excel 2010工作表密碼

點擊「選項」選擇子菜單下「信任中心」「宏設置」在宏設置下。選擇「啟用所以宏」然後點擊「確定」

如下圖所示：
教你如何輕松的破解excel 2010工作表密碼

點擊「視圖」在右下面我們會看「宏」打開宏，如下圖所示：
教你如何輕松的破解excel 2010工作表密碼

現在我們就開始錄制新宏，宏名：隨便填，我這么久填密碼，保存在：選擇當前工作薄，說明可以不填。

如下圖所示：
教你如何輕松的破解excel 2010工作表密碼