⑴ xls文件密碼忘記誰能破解,求大神
xls文件密碼忘記誰能破解,您可以下載一個破解軟體試試,不過成功的幾率不是很大,如果文件不是非常重要的話,我建議您還是放棄吧。
給文件加密,我使用的是文件夾加密超級大師。
文件夾加密超級大師的閃電和隱藏加密自帶的有密碼恢復功能,我建議您再加密文件的時候可以試試。
⑵ xls文件加密怎麼破解
加密的文件如果是強行破解的話是會有損壞數據的可能性的,所以需要相對應的解決辦法去打開,如果是忘記密碼了,可以再仔細回想一下正確密碼,或是咨詢相關工作人員看是否有沒有找回密碼的辦法。或是通過軟體去進行解密。
總之是不建議破解開,對文件本身不太好。
⑶ 誰有好的免費的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的原始密碼就被清除了!!
⑷ xls文件的密碼破解
告訴我你的email,發給你
----
Office password recovery 綠色破解版,已經發給你,請查收
-------
另外,可以下載一個27M的龐大密碼恢復工具包,包括Office,PDF,RAR,ZIP等等
http://www.jybags.com/bbs/dispbbs.asp?boardid=17&id=65
⑸ excel文件密碼破解工具
方法如下:
1. 點擊視圖→宏→錄制新宏,新建一個宏,隨便取個名字,生成一個空的宏;
2. 選中剛新建的宏後點擊編輯按鈕;
3. ctrl+a全部選中後點擊delete刪除,將附件的txt內容粘貼進入。一個字母、標點符號都不能少不能錯;
⑹ excel文件解密軟體
不知道你說的電腦加密了是什麼概念,是怎樣加密的。
如果是RMS加密,不太好解決。
如果只是EXCEL加密,那麼找個破解軟體就可以搞定了,
但這兩種加密方式加密後,重新打開時都會提示你輸入密碼或者身份驗證。方便的話文件發來看看。
⑺ 各位幫忙破解一個Excel(.xls)文件的密碼!
密碼忘了的話,現在最可行的辦法就是破解源文件,而不是猜出原先的密碼,那樣花費的時間是相當久的(如果原密碼很長很復雜的話)。
如果是短密碼的話,那Advanced Office Password Recovery可以幫你找回密碼,密碼長的話就比較困難了。
http://www.xdowns.com/soft/8/114/2006/Soft_32319.html
破解的話推薦你一個軟體 Office Password Recovery Toolbox,破解後自己重新修改密碼就行了。
http://www.xdowns.com/soft/8/114/2006/Soft_33723.html
樓主如果還是沒解決問題的話,可以把源文件發來,我幫你!
[email protected]
⑻ 如何破解xls加密文件
強行破解是會造成文件損壞的,你是用什麼加密了,是密碼忘記了嗎?
如果是Excel本身自帶的加密碼,你可以把這個文件的後綴更改成 .zip 然後雙擊打開,依次雙擊:【xl】-【woorksheets】,雙擊打開,打開方式為【記事本】。緊接上一步,使用快捷鍵「Ctrl + F」,打開查找功能,輸入「protect」,點擊【查找下一個】,接著刪除protect所在的<> 中藍色的部分,點擊保存。再將壓縮包後綴改回來,改成【xlsx】,然後再打開表格,就會發現工作表密碼保護被解除了,這時候就可以對表格進行編輯了。
如果是用加密軟體類加密保護的,那麼最好是詢問一下相關的工作人員看有沒有解開的辦法,或是密碼找回的辦法。
⑼ xls文件格式.解密
最簡單可行的方法是將系統還原一下,還原到你做此操作之前的一個系統狀態下。的具體操作如下:
依次單擊「開始→所有程序→附件→系統工具→系統還原」,運行「系統還原」命令,打開「系統還原向導」,選擇「恢復我的計算機到一個較早的時間」 /「下一步」選擇好日期後再跟著向導還原即可。
⑽ excel2007文件密碼忘了用什麼軟體能破解密碼
經常和辦公軟體打交道的人肯定知道,如果把加密文檔的密碼忘了就相當於將這個文件報廢了,那將會是一件多麼可怕的事情。今天為大家介紹一款軟體,可以在極短的時間里輕松破解Word和Excel文件的密碼,它就是Office
Password
Remover。
Office
Password
Remover破解密碼的速度很快,使用時需要連接到互聯網,因為要給軟體伺服器發送很少的數據並解密。不過大家可以放心,該軟體不會泄露任何個人隱私。
第一步:首先運行解壓好的OPRemove.exe
這個程序,打開程序後可以看到中間文本框後面有個類似文件夾的按鈕。
另外,為了防止別人用該軟體來破解Word或Excel文檔,也可以給該程序設置密碼。點擊「文件」菜單中的「設置訪問密碼」命令,然後在彈出的「設置訪問密碼」窗口在輸入兩遍登錄密碼即可。下次再運行該程序時,就會出現提示要求輸入運行程序密碼的窗口。
第二步:接著點擊該按鈕瀏覽打開要破解的Word或Excel文檔。確定後出現如圖的畫面,點擊「移除密碼」按鈕後。這時程序會彈出一個提示窗口,說明程序要連接互聯網來查找匹配的秘密才能進行破解,確定後就開始破解操作。
第三步:幾秒鍾後,便出現「該文檔已經被成功破解」的提示,點擊「確定」按鈕即可,這個時候文件破解就大功告成了。在這里要特別注意的是,破解後的文件名會有點變化,加了「DEMO」這四個字母,我們只要重命名去掉這四個字母就可以了。
麻煩採納,謝謝!