⑴ excel表格加密忘記密碼怎麼辦
⑵ excel文檔加密忘記密碼怎麼解鎖
如果是用專業的防泄密軟體加密的excel文檔 是無法破解的
比如域之盾系統 加密過的文件任何形式的非法外發 傳輸 拷貝打開都是亂碼 無法破解 只有正常解密或者通過審批以後外發 輸入正確密碼才可以打開文件
希望可以幫助到你
⑶ 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表格設置密碼忘記了怎麼辦
excel表破解密碼步驟：
Excel Password Unlocker破解版是一款專業用於微軟 Excel 資料庫文檔的密碼破解恢復工具。想必 Excel 應該是辦公一族經常用到的吧，如果你的 Excel 密碼忘記了你可以嘗試使用該軟體進行恢復密碼或者清除密碼。
Excel Password Unlocker 5.0 漢化版是專為恢復丟失的 Microsoft Excel 密碼設計，一個易於使用的工具。密碼修改被恢復在短短的幾秒鍾！對於密碼打開，Excel Password Unlocker 5.0 中文版提供了三種不同的搜索方法：高級字典破解，暴力破解，以及高級強力使用面具攻擊。從97到2007的Excel版本都支持。
方法一：
如果Excel文件的打開密碼忘記了，且密碼是6位數以內的數字，可用以下步驟解開(關掉所有程序，為了速度)：
新開一Excel，同時按Alt和F11，進入VBA界面，點菜單上的插入，模塊，在新出來的窗口粘貼一下代碼：
Sub crack()
Dim i As Long
Dim FileName As String
i = 0
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, ""))
Application.ScreenUpdating = False
line2: On Error GoTo line1
Workbooks.Open FileName, , True, , i
MsgBox "Password is " & i
Exit Sub
line1: i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub
然後在此界面直接按F5運行此宏，選擇文件，等啊等。
方法二：
Excel—「撤銷工作表保護密碼」的破解並獲取原始密碼；
1、打開您需要破解保護密碼的Excel文件；
2、依次點擊菜單欄上的工具---宏----錄制新宏，輸入宏名字如:aa；
3、停止錄制(這樣得到一個空宏)；
4、依次點擊菜單欄上的工具---宏----宏,選aa,點編輯按鈕；
5、刪除窗口中的所有字元(只有幾個)；
6、關閉編輯窗口；
7、依次點擊菜單欄上的工具---宏-----宏，選AllInternalPasswords，運行，確定兩次；
8、等一會，就會出現以下對話框：這就是Excel密碼對應的原始密碼(此密碼和原先設置的密碼都能打開此文檔。再點擊確定。Excel的原始密碼就被清除了。
⑸ 工作簿密碼忘了怎麼辦
可以通過以下方法進行破解，步驟如下：
1，先找到有工作表保護密碼的Excel表格，然後後綴名稱，從演示操作表格.xlsx改為演示操作表格.rar：
⑹ Excel文檔加密，忘記密碼了如何破解
可以多試一下常用密碼，大多數人設置密碼一般都是設置的常用密碼。或者使用密碼找回的功能試一下。還可以先把密碼寫到記事本上，然後依次試一下。我之前有使用U盤加密超級3000加密了U盤上的文件後來忘記密碼，就是將所有的密碼寫在記事本上一個一個的試出來的。
不要強制的破解哦。否則文件可能被損壞呢。
⑺ 怎麼破解excel的密碼保護
您好，方法
1、我新建一個excel文件（.xlsx格式的）來測試破解過程，其它文件可以參考，但最好要備份原來的文件,設置工作表、工作薄為密碼保護，保存後。
2、打開電腦上的壓縮軟體，然後在菜單里選擇打開壓縮包，進入excel文件所在的目錄，按圖2所示，找到excel文件，然後打開,
3、下面介紹一下刪除工作薄的密碼，如下圖紅色箭頭所指的文件，用內部閱讀器打開。
4、搜索，打開搜索界面，搜索「workbookProtection」，如下圖所示，把該標簽的內容全部刪除，
5、保存修改到壓縮，
6、下面介紹一下刪除工作表的密碼，如下圖紅色箭頭所指的文件，用內部閱讀器打開,打下面的文件。
7、打開後，搜索「sheetProtection 」，刪除整個標簽的內容，保存到壓縮包。
8、關掉壓縮包，重新打開那個測試的excel文件，可以看到密碼保護已經沒有了。
⑻ Excel設的密碼怎樣解除
excel設置了保護工作簿，想要使用默認密碼撤銷工作表保護，解決方法如下。
1、首先在電腦中打開excel表格，點擊「審閱」，如下圖所示。