繞過excel密碼嗎

『壹』 怎樣破解EXCEL密碼

如何破解EXCEL工作表保護密碼方法談x0dx0ax0dx0a超級無敵有用！！！x0dx0a方法:x0dx0a1\打開文件x0dx0a2\工具---宏----錄制新宏---輸入名字如:aax0dx0a3\停止錄制(這樣得到一個空宏)x0dx0a4\工具---宏----宏,選aa,點編輯按鈕x0dx0a5\刪除窗口中的所有字元,替換為下面的內容:(復制吧)x0dx0a6\關閉編輯窗口x0dx0a7\工具---宏-----宏,選AllInternalPasswords,運行,確定兩次,等2分鍾,再確定.OK,沒有密碼了!!x0dx0a內容如下：x0dx0aPublic Sub AllInternalPasswords()x0dx0a' Breaks worksheet and workbook structure passwords. Bob McCormickx0dx0a' probably originator of base code algorithm modified for coveragex0dx0a' of workbook structure / windows passwords and for multiple passwordsx0dx0a'x0dx0a' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)x0dx0a' Modified 2003-Apr-04 by JEM: All msgs to constants, andx0dx0a' eliminate one Exit Sub (Version 1.1.1)x0dx0a' Reveals hashed passwords NOT original passwordsx0dx0aConst DBLSPACE As String = vbNewLine & vbNewLinex0dx0aConst AUTHORS As String = DBLSPACE & vbNewLine & _x0dx0a"Adapted from Bob McCormick base code by" & _x0dx0a"Norman Harker and JE McGimpsey"x0dx0aConst HEADER As String = "AllInternalPasswords User Message"x0dx0aConst VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"x0dx0aConst REPBACK As String = DBLSPACE & "Please report failure " & _x0dx0a"to the microsoft.public.excel.programming newsgroup."x0dx0aConst ALLCLEAR As String = DBLSPACE & "The workbook should " & _x0dx0a"now be free of all password protection, so make sure you:" & _x0dx0aDBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _x0dx0aDBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _x0dx0aDBLSPACE & "Also, remember that the password was " & _x0dx0a"put there for a reason. Don't stuff up crucial formulas " & _x0dx0a"or data." & DBLSPACE & "Access and use of some data " & _x0dx0a"may be an offense. If in doubt, don't."x0dx0aConst MSGNOPWORDS1 As String = "There were no passwords on " & _x0dx0a"sheets, or workbook structure or windows." & AUTHORS & VERSIONx0dx0aConst MSGNOPWORDS2 As String = "There was no protection to " & _x0dx0a"workbook structure or windows." & DBLSPACE & _x0dx0a"Proceeding to unprotect sheets." & AUTHORS & VERSIONx0dx0aConst MSGTAKETIME As String = "After pressing OK button this " & _x0dx0a"will take some time." & DBLSPACE & "Amount of time " & _x0dx0a"depends on how many different passwords, the " & _x0dx0a"passwords, and your computer's specification." & DBLSPACE & _x0dx0a"Just be patient! Make me a coffee!" & AUTHORS & VERSIONx0dx0aConst MSGPWORDFOUND1 As String = "You had a Worksheet " & _x0dx0a"Structure or Windows Password set." & DBLSPACE & _x0dx0a"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _x0dx0a"Note it down for potential future use in other workbooks by " & _x0dx0a"the same person who set this password." & DBLSPACE & _x0dx0a"Now to check and clear other passwords." & AUTHORS & VERSIONx0dx0aConst MSGPWORDFOUND2 As String = "You had a Worksheet " & _x0dx0a"password set." & DBLSPACE & "The password found was: " & _x0dx0aDBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _x0dx0a"future use in other workbooks by same person who " & _x0dx0a"set this password." & DBLSPACE & "Now to check and clear " & _x0dx0a"other passwords." & AUTHORS & VERSIONx0dx0aConst MSGONLYONE As String = "Only structure / windows " & _x0dx0a"protected with the password that was just found." & _x0dx0aALLCLEAR & AUTHORS & VERSION & REPBACKx0dx0aDim w1 As Worksheet, w2 As Worksheetx0dx0aDim i As Integer, j As Integer, k As Integer, l As Integerx0dx0aDim m As Integer, n As Integer, i1 As Integer, i2 As Integerx0dx0aDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integerx0dx0aDim PWord1 As Stringx0dx0aDim ShTag As Boolean, WinTag As .ScreenUpdating = Falsex0dx0aWith ActiveWorkbookx0dx0aWinTag = .ProtectStructure Or .ProtectWindowsx0dx0aEnd Withx0dx0aShTag = Falsex0dx0aFor Each w1 In Worksheetsx0dx0aShTag = ShTag Or w1.ProtectContentsx0dx0aNext w1x0dx0aIf Not ShTag And Not WinTag Thenx0dx0aMsgBox MSGNOPWORDS1, vbInformation, HEADERx0dx0aExit Subx0dx0aEnd Ifx0dx0aMsgBox MSGTAKETIME, vbInformation, HEADERx0dx0aIf Not WinTag Thenx0dx0aMsgBox MSGNOPWORDS2, vbInformation, HEADERx0dx0aElsex0dx0aOn Error Resume Nextx0dx0aDo 'mmy do loopx0dx0aFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66x0dx0aFor l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66x0dx0aFor i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66x0dx0aFor i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126x0dx0aWith ActiveWorkbookx0dx0a.Unprotect Chr(i) & Chr(j) & Chr(k) & _x0dx0aChr(l) & Chr(m) & Chr(i1) & Chr(i2) & _x0dx0aChr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)x0dx0aIf .ProtectStructure = False And _x0dx0a.ProtectWindows = False Thenx0dx0aPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _x0dx0aChr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _x0dx0aChr(i4) & Chr(i5) & Chr(i6) & Chr(n)x0dx0aMsgBox Application.Substitute(MSGPWORDFOUND1, _x0dx0a"$$", PWord1), vbInformation, HEADERx0dx0aExit Do 'Bypass all for...nextsx0dx0aEnd Ifx0dx0aEnd Withx0dx0aNext: Next: Next: Next: Next: Nextx0dx0aNext: Next: Next: Next: Next: Nextx0dx0aLoop Until Truex0dx0aOn Error GoTo 0x0dx0aEnd Ifx0dx0aIf WinTag And Not ShTag Thenx0dx0aMsgBox MSGONLYONE, vbInformation, HEADERx0dx0aExit Subx0dx0aEnd Ifx0dx0aOn Error Resume Nextx0dx0aFor Each w1 In Worksheetsx0dx0a'Attempt clearance with PWord1x0dx0aw1.Unprotect PWord1x0dx0aNext w1x0dx0aOn Error GoTo 0x0dx0aShTag = Falsex0dx0aFor Each w1 In Worksheetsx0dx0a'Checks for all clear ShTag triggered to 1 if not.x0dx0aShTag = ShTag Or w1.ProtectContentsx0dx0aNext w1x0dx0aIf ShTag Thenx0dx0aFor Each w1 In Worksheetsx0dx0aWith w1x0dx0aIf .ProtectContents Thenx0dx0aOn Error Resume Nextx0dx0aDo 'Dummy do loopx0dx0aFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66x0dx0aFor l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66x0dx0aFor i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66x0dx0aFor i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126x0dx0a.Unprotect Chr(i) & Chr(j) & Chr(k) & _x0dx0aChr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _x0dx0aChr(i4) & Chr(i5) & Chr(i6) & Chr(n)x0dx0aIf Not .ProtectContents Thenx0dx0aPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _x0dx0aChr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _x0dx0aChr(i4) & Chr(i5) & Chr(i6) & Chr(n)x0dx0aMsgBox Application.Substitute(MSGPWORDFOUND2, _x0dx0a"$$", PWord1), vbInformation, HEADERx0dx0a'leverage finding Pword by trying on other sheetsx0dx0aFor Each w2 In Worksheetsx0dx0aw2.Unprotect PWord1x0dx0aNext w2x0dx0aExit Do 'Bypass all for...nextsx0dx0aEnd Ifx0dx0aNext: Next: Next: Next: Next: Nextx0dx0aNext: Next: Next: Next: Next: Nextx0dx0aLoop Until Truex0dx0aOn Error GoTo 0x0dx0aEnd Ifx0dx0aEnd Withx0dx0aNext w1x0dx0aEnd Ifx0dx0aMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADERx0dx0aEnd Sub

『貳』 如何破解EXCEL的打開密碼

多功能密碼破解軟體
首先點擊「Word\Excel破解」標簽進入窗口，點擊「瀏覽」按鈕，選擇要解密的Word或Excel文件。

其次設置密碼的最小長度和最大長度，再設置從小到大還是從大到小。這些設置可以加快破解速度。

然後設置破解字元，即程序在哪些字元范圍取值。如我常常使用0-9數字作為密碼，因此就選中「數字(0-9)」選項。

最後點擊「開始」按鈕就可以窮舉密碼了。點擊「暫停」按鈕可以暫停程序的運行。如果點擊「停止並保存」按鈕則可停止程序的運行，並且保存進度，下次可以接著當前進度破解。調入進度的方法是點擊工具欄上的「設置」按鈕載入進度即可。找到密碼時會顯示在進度文本框中。

如果需要使用字典請選擇「密碼字典」選項，會彈出窗口，選擇相應的字典，然後點擊「確定」就OK了。如果使用自定義字典，可用文本文件設置字典，需要注意的是每行就一個密碼，如果你要製作生日密碼字典，可使用「多功能密碼破解軟體」贈送的「生日密碼字典生成工具」，它在本軟體的安裝目錄下。靈活使用密碼字典能夠有效地加快密碼破解速度。

小技巧：由於使用窮舉法破解速度很慢，可能需要幾十個小時，此時你只需點擊主界面 工具欄上的「設置」按鈕，在彈出的窗口中選中「破解完畢後關閉計算機」選項，那麼當計算機窮舉完所有密碼後會自動關閉計算機。當你下次開啟電腦後，只需點擊工具欄上的「日誌」按鈕，就能查看破解出的密碼了

『叄』 如何繞過excel密碼

進入一個未加密的文件夾，點擊菜單欄上的「查看」命令，取消「按Web頁查看」選項。再次點擊「查看」，選擇「文件夾選項」，在彈出的對話框中選擇「查看」選項卡。點擊「與當前文件夾類似」，確定後即可取消本機上所有文件夾的加密。

『肆』 excel表格打開密碼破解的方法

在 Excel 中因為錄入了過多的重要數據進而需要設置密碼進行保護，但過了一段時間卻忘記了打開密碼，這個時候就需要進行破解打開密碼的 方法 了。下面是由我分享的excel表格打開密碼破解的方法，以供大家閱讀和學習。

excel表格打開密碼破解的方法：

破解打開密碼步驟1：先用Microsoft Office Excel 2003(可用金山WPS Office 2012 表格代替)創建一個“2003.xls”的普通方式加密Excel文檔，然後用Office Password Remover這個在線破解工具來破解，1,2,3，3秒之後，就生產一個已經被成功破解的新Excel文檔——2003(DEMO).xls 。破解一個普通加密方式的Excel文檔，只需3秒鍾!如果你真的不信，可以自己測試一下!

破解打開密碼步驟2：當然，這個3秒破解Excel文檔密碼是有條件的。第一個條件：Excel文檔保存格式必須為古老的“.XLS ”格式(同理，Word文檔保存為“.DOC”格式，PPT文檔為“.PPT格式”)，第二個條件為加密方式必須為Office 2003或2007(WPS Office 2012)的默認加密方式。

註：要想得到完全的破解文件，需要付費，免費破解的Excel文檔只能看到前幾行。

破解打開密碼步驟3：如果不付費就破解不了，那就大錯特錯。要知道，在一台普通配置的電腦上，Excel密碼破解工具一秒能測試約88萬個密碼(需符合以上兩個條件)。假設一個6位數的全數字密碼，你猜要多長時間來破解?答案是2秒不到(破解時間因測試環境不同而不同)。

破解打開密碼步驟4：WPS表格(用途相當於Excel)雖然提供多種加密方式，但其中的XOR加密方式在Advanced Office Password Recovery里就形成虛設。可能是Advanced Office Password Recovery已經掌握了怎麼完美破解XOR加密方式的方法，否則不可能做到無論你設置什麼密碼，都會被瞬間打開!

『伍』 怎麼解除excel2007密碼怎麼破解

解除Excel2007的文件密碼，可以用一些專用的破解軟體，一般有字典破解和自動組合破解。如果能大致知道之前設置的什麼密碼的話，可以選擇字典破解或者一定范圍內字元破解。我自己寫的有破解的代碼，但是要看你能花多少時間成本來破解它了。
請不要用於非法用途，只有自己的Excel文件密碼忘記的時候才可以用。

『陸』 如何破解excel打開密碼破解

• 1、我新建一個excel文件（.xlsx格式的）來測試破解過程，其它文件可以參考，但最好要備份原來的文件,設置工作表、工作薄為密碼保護，保存後

  

『柒』 如何破解excel密碼

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

『捌』 如何破解excel密碼

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

『玖』 如何破解excel打開密碼

你的excel製作完成後，如果需要加密碼，可以進行如下操作
1、excel製作完成，先要保存一下。
2、你打開「工具」--「選項」
，在「選項」下，你選擇「安全性」一欄；
3、在「安全性」選項中，你可以看到兩個項目a，此文件加密設置
打開許可權密碼
b，共享設置修改許可權密碼
這里你可以設置你的密碼，如果你的表格需要共享的，建議你在設置共享密碼的同時，在「建議只讀」該項目上打鉤（這樣別人就只能看你的表格，但不能修改內容。
4、點「確定」，退出excel，然後你可以打開剛做的excel，看看打開表格時是否需要密碼輸入。
如果時間長了，忘記密碼。可以再網上搜索破解excel、word的密碼軟體進行解密。