有時候我們會遇到excel無法編輯需要輸入密碼的情況，那么遇到這種問題如何解決呢？

人工破解微信：jiugee8 先解密10米起

步驟如下：

1.點擊“視圖”，找到【宏】，點擊“查看宏”

（也可以去開發(fā)工具菜單欄找到'宏'）

2.先隨便創(chuàng)建一個宏名，點擊“創(chuàng)建”

3.創(chuàng)建后，會彈出一個vb界面，輸入如下代碼：（感謝大佬賜予代碼）excel密碼破解

Public Sub Password_cracking()Const DBLSPACE As String = vbNewLine & vbNewLineConst AUTHORS As String = DBLSPACE & vbNewLine & _" ? ? ? ? ? ? ? ? ? ? ?Author - jnxxhzz "Const HEADER As String = "Password_cracking"Const VERSION As String = DBLSPACE & " ? ? ? ? ? ? ? ? ? ? ?Version 1.0"Const REPBACK As String = DBLSPACE & ""Const ZHENGLI As String = DBLSPACE & ""Const ALLCLEAR As String = DBLSPACE & "All password is clear" & DBLSPACE & "Please remember to save"Const MSGNOPWORDS1 As String = "No password!"Const MSGNOPWORDS2 As String = "No password!"Const MSGTAKETIME As String = "This will take some time , please wait for a while" & DBLSPACE & "Press next to start"Const MSGPWORDFOUND1 As String = "Password is : " & DBLSPACE & "$$" & DBLSPACE & _"If the file worksheet has a different password, it will search for the next set of passwords and release"Const MSGPWORDFOUND2 As String = "Password is : " & DBLSPACE & "$$" & DBLSPACE & _"If the file worksheet has a different password, it will search for the next set of passwords and release"Const MSGONLYONE As String = ""Dim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With 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 ThenPWord1 = 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, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For 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 ThenPWord1 = 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 sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI, vbInformation, HEADEREnd Sub

3.之后關(guān)閉這個vb界面，打開“查看宏”，會出現(xiàn)“Password_cracking”，點擊執(zhí)行便開始破解

excel密碼破解

4.出現(xiàn)這個就一路點擊確定，就破解啦~可以愉快的編輯了，如果出現(xiàn)卡頓的情況，那就是excel禁用了宏，需要手動打開允許，關(guān)于這個，下期我會出一期視頻更詳細的講解！請持續(xù)關(guān)注

在Excel中為文件加密后，不小心被人知道了密碼，該怎么修改或者怎么解除呢？本期，小編將為大家繼續(xù)介紹文件密碼解除和修改操作方法。excel密碼破解

本文針對零基礎的同學講解詳細步驟，有基礎的可以翻到后面直接看公式和方法。

具體操作如下：

1、打開一個加密的工作表，彈出“密碼”對話框，如下圖所示。

2、因有密碼保護，所以這里需要輸入密碼（文件密碼是123），輸入后，單擊“確定”按鈕，如下圖所示。excel密碼破解

3、執(zhí)行操作后，即可打開加密文件，單擊“文件”命令，如下圖所示。

4、進入主界面，單擊“信息”命令，進入“信息”界面，如下圖所示。excel密碼破解

5、單擊“保護工作簿”按鈕，如下圖所示。

6、彈出列表框，選擇“用密碼進行加密”選項，如下圖所示。excel密碼破解

7、執(zhí)行操作后，彈出“加密文檔”對話框，如下圖所示。

8、在“密碼”文本框中，刪除原來的密碼，如下圖所示。

9、此時，如果需要修改密碼，可以重新輸入密碼，如果需要解除密碼，即可直接單擊“確定”按鈕，如下圖所示。excel密碼破解

10、返回“信息”界面，此時“保護工作簿”按鈕右側(cè)已恢復為白色底紋顯示，表示工作表的密碼保護已被解除，如下圖所示。

好了，今天有關(guān)在Excel中解除或修改文件密碼的方法便介紹到這，大家趕緊實際操作練習一下吧，有不懂的問題可以留言問小編呦！感謝關(guān)注Excel880，還請多多轉(zhuǎn)發(fā)，持續(xù)關(guān)注我們呀！excel密碼破解