❶ Excel工作簿密碼忘記了，怎麼破
EXCEL工作薄里設置了工作表的密碼,不記得了,如何破解密碼呀?
方法如下，很方便的，希望能幫到你！
步驟方法如下:
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
❷ excel鎖起來了要怎樣解鎖
方法：
1、如果工作表或工作簿的密碼是自己設置的，可以自行輸入密碼解鎖；
2、如果是其他人建立，並設置的密碼，需要向其詢問後解鎖；
3、如果是EXCEL打開密碼，2003版本可用Office Password Remover軟體。
2007以版本密碼破解較困難，需要用其他的字典進行破解。
❸ excel表格打開密碼怎麼破解
office2007開始，文件的後綴名發生了改變，比如xls變為xlsx。
而xlsx格式本質上就是壓縮包，我們可以通過修改後綴名直接獲取excel的源文件。
① 修改Excel後綴名為.rar（期間會提出警告，但不用理它，點「是」即可）
② 找到需要破解的工作表，具體路徑為：
壓縮包.rar\xl\worksheets
③ 將sheet2.xlm文件（此處根據自己需要選擇文件）復制到桌面；用記事本打開，查找到加密代碼，刪掉；再將文件復制回壓縮包替換掉老文件即可。
加密代碼通常可以從後往前找，含有「protectedRange algorithmName」的整個<>裡面內容都是加密代碼，都要刪掉，包括<>本身。
④ 最後一步，將壓縮包的後綴名改回.xlsx，大功告成。此時工作表的密碼已經被移除了。
❹ Excel 請教：如何破解工作簿
解密原理
1、「xlsx」文檔的本質是一個以「xml」文檔為主要信息載體的壓縮包，可以用任何一種壓縮軟體打開並處理。
2、「xml」文檔的本質則是文本文檔，可以用任何一種文本編輯器進行修改。
以上兩點，就是我們可以解除工作表與工作薄保護密碼的基礎。
END
xlsx 文檔的具體操作步驟
1我們選擇普及度很高的「好壓」作為操作所需的壓縮軟體。
運行「好壓」。
2單擊「文件」菜單，在彈出的菜單中，選擇「打開壓縮文件」。
這時彈出「選擇要打開的壓縮文件」對話框，定位到需要解密的「xlsx」文檔所在的文件夾。
這時候，由於默認是打開「常見壓縮文件」，因此，所需要的「xlsx」文檔暫時不會出現在對話框的列表中。
3在「選擇要打開的壓縮文件」對話框的右下角，單擊文件類型下拉列表框，從彈出的下拉列表中選擇「所有文件」。
這時，我們就能看到需要的「xlsx」文檔了。
我們雙擊該文檔，就把它作為一個壓縮文件打開了。看到其中的內容了吧。
注意，以上2－4步的操作，不能通過好壓界面左邊的文件夾樹來定位文件並打開。那樣的操作將導致調用Excel打開選擇的文檔，而不是使用好壓將它當作壓縮文件來打開。
解除工作表保護密碼
承接前面的操作，在好壓中雙擊打開「xl」文件夾，再雙擊打開「worksheets」文件夾。
本例中，是對工作表「sheet1」進行了保護加密。因此，我們雙擊「sheet1.xml」打開它。默認情況下，這時會使用系統自帶的記事本打開該文件。也可能是其它文本編輯器，那都是可行的。
意外處理：如果是使用了非文本編輯類的軟體打開了該文件，那麼先直接關閉該軟體。再於「sheet1.xml」上右擊，並選擇「內部查看器打開」。
查找字元串「sheetProtection password=」所在的位置。如果您喜歡手動定位的話，可以從文件末尾向前找。
找到後選中該字元串所在的一對尖括弧內的所有內容，並刪除掉。
然後在記事本中存檔。這時會彈出一個確認框，詢問是否用修改後的文件更新壓縮文件中的版本。當然是「確定」了。
此後關閉記事本窗口和壓縮軟體窗口，即完成了清除工作表保護密碼的全部操作。
解除工作薄保護密碼
承接本欄目第四步的操作，在好壓中雙擊打開「xl」文件夾。
雙擊「workbook.xml」，在記事本中打開它。意外處理參照本欄目第六條。
查找字元串「workbookProtection workbokPassword=」所在的位置。「workbook.xml」的內容通常不多，所以比較好找。
找到後選中該字元串所在的一對尖括弧內的所有內容，並刪除掉。
然後在記事本中存檔。這時會彈出一個確認框，詢問是否用修改後的文件更新壓縮文件中的版本。當然是「確定」了。
此後關閉記事本窗口和壓縮軟體窗口，即完成了清除工作薄保護密碼的全部操作
望採納，謝謝！
❺ excel 表格設置打開密碼但是忘記了打不開怎麼辦
你好，
推薦使用使用軟體
「Office
Password
Remover」，這個軟體能破解Word、Excel和Access文檔密碼,
而且速度很快，一般情況下解密過程要要幾秒鍾就行了.
這個軟體可以在網上搜索一上,
有很多破解版的可以下載.
安裝很容易,
一路Next就行了.
該軟體下載並安裝後，會直接在桌面形成快捷方式.
這里注意,
最好下載破解版，如果是非破解版的軟體，破解後的文件很可能出現部分內容遺失的情況。
使用的方法也很簡單，雙擊軟體圖標，軟體彈出的界面看起來很簡單，選中「文件夾」圖標中，這時候指定需要破解的文檔地址，找到忘記密碼的Excel文件,
下面的工作軟體會自己完成,
如果存在密碼，該軟體就會自動破解，速度很快。如果沒有密碼，會自動顯示為None,
表示不用破解。
密碼破解後就清除了，可以再設置。
❻ 怎麼破解excel工作薄訪問加密
工具：5秒WORD-EXCEL密碼破解.exe
1、網路「5秒WORD-EXCEL密碼破解」，點擊下方的連接，下載軟體，軟體不是很大，直接下載下來就可以了，下載下來是一個壓縮包，解壓該壓縮包。打開壓縮包解壓出來的文件夾，第二個文件就是我們的密碼破解工具，雙擊打開工具。
2、瀏覽，找到我們要破解的文件，點擊確定，破解就開始啦,點擊移除密碼。
3、彈出對話框，點擊確定。
4、解密時間要看密碼復雜程度，不過應該沒有太變態的密碼。
5、成功破解密碼，並且生成了一個新的沒有密碼的文件。
❼ 工作簿密碼忘了怎麼辦
可以通過以下方法進行破解，步驟如下：
1，先找到有工作表保護密碼的Excel表格，然後後綴名稱，從演示操作表格.xlsx改為演示操作表格.rar：
❽ Excel工作表打開密碼破解
在日常工作中，您是否遇到過這樣的情況：您用excel編制的報表、表格、程序等，在單元格中設置了公式、函數等，為了防止其他人修改您的設置或者防止您自己無意中修改，您可能會使用excel的工作表保護功能，但時間久了保護密碼容易忘記，這該怎麼辦？有時您從網上下載的excel格式的小程序，您想修改，但是作者加了工作表保護密碼，怎麼辦？
您只要按照以下步驟操作，excel工作表保護密碼瞬間即破！
1、打開您需要破解保護密碼的excel文件；
2、依次點擊菜單欄上的工具---宏----錄制新宏，輸入宏名字如:aa；
3、停止錄制(這樣得到一個空宏)；
4、依次點擊菜單欄上的工具---宏----宏,選aa,點編輯按鈕；
5、刪除窗口中的所有字元(只有幾個),替換為下面的內容；view
code6、關閉編輯窗口；
7、依次點擊菜單欄上的工具---宏-----宏,選allinternalpasswords,運行,確定兩次；
等一會,再點擊確定。哈哈哈,沒有密碼了吧!!
❾ 兄弟們我EXCEL工作表密碼忘記了，怎麼樣可以解除密碼
1、軟體容量與漢化：
zip本身容量較大而且它是沒有中文版的，只有英文版，如需中文版，只能自己安裝漢化包。相比較而言rar的安裝包是非常小的，而且有官方的中文版的。
2、軟體壓縮效率：
rar的壓縮效率要比zip高的多，對相同的內容進行壓縮，rar的壓縮率要比zip的高。
3、格式兼容：
rar能夠壓縮或者解壓zip文件，而反過來zip就不能完成rar文件的解壓了。RAR特點
RAR通常情況比ZIP壓縮比高，但壓縮/解壓縮速度較慢。
分卷壓縮：壓縮後分割為多個文件。
固實壓縮：把要壓縮的視為同一個文件以加大壓縮比，代價是取用包中任何文件需解壓整個壓縮包。
恢復記錄：加入冗餘數據用於修復，在壓縮包本身損壞但恢復記錄夠多時可對損壞壓縮包進行恢復。