表格忘記密碼怎麼破解?

忘記EXCEL表格的密碼了，如何破解？？

Excel—“撤銷工作表保護密碼”的破解並獲取原始密碼

1、打開您需要破解保護密碼的Excel文件；

2、依次點擊菜單欄上的工具---宏----錄製新宏，輸入宏名字如:aa；

3、停止錄製(這樣得到一個空宏)；

4、依次點擊菜單欄上的工具---宏----宏,選aa,點編輯按鈕；

5、刪除窗口中的所有字符(只有幾個),

6、關閉編輯窗口；

7、依次點擊菜單欄上的工具---宏-----宏,選AllInternalPasswords,運行,確定兩次；

等一會,就會出現以下對話框：這就是Excel密碼對應的原始密碼(此密碼和原先設置的密碼都能打開此文檔。再點擊確定。Excel的原始密碼就被清除了

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：使用密碼破解程序破解。以下為具體方法：

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!,......

我的一個Excel表格密碼忘記了，怎麼辦？

Excel Password Recovery|Excel密碼破解軟件

下載一琺，可以直接破解掉。

EXCEL表格密碼忘記了，怎麼破解，求真實可靠的方法或軟件

方法一：有付費的工具

方法二：根據自己記憶中的特徵，編制vba程序去嘗試

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!!, BAC......

我的WPS 的表格，忘記密碼了，裡面數據很重要，怎麼把密碼破解掉，跪求！！！！ 30分

如果你是合法用戶，在忘卻密碼時，啟動WPS程序，點擊"文件"/"密碼設置"菜單，在出現的密碼設置對話框中可以看到原密碼會自動以""號的方式出現在"密碼"文本框中，點擊"清除"按鈕，再在隨後出現的提示框中點擊"確認"按鈕，該加密文件的密碼已經被清除了。以後再次打開該文件就不再需要輸入密碼了。如果你不是合法用戶就只能藉助有關工具進行破解。現在破解WPS密碼的軟件很多，但論其功能強大，破解速度快就要數國產的Edward＇sWPS2000PasswordRecovery了。該工具破解WPS密碼採用的是破解密碼的常見的方法———窮舉法。使用步驟如下：首先，在程序界面中的"EncryptedWPS2000file"的文本框中通過右側的"瀏覽"按鈕加入需破解的WPS加密文件；然後選擇密碼破解方法，該軟件有以下幾種密碼破解方式：Brute-force（強力攻擊）、Dictionary（字典攻擊）、mask（掩碼搜索）等等，一般選用"Brute-force"（強力破解）法；接著在"Brute—forceRangeOptions"列表框中選擇破解密碼可能包含的密碼範圍，例如：大小寫字母、數字、是否有空格、特殊字符等；此外還要指定密碼長度，如6位或更長；最後，當上述幾項設置完畢後，請點擊"RUN"選項，密碼很快得以破解。

Excel工作表保護密碼忘了怎麼破解

用宏代碼破解密碼：

以office2007為例說明，（2003也是一樣的，只是菜單命令的位置不同）

第一步：打開該文件，先解除默認的“宏禁用”狀態，方法是點擊工具欄下的“選項”狀態按鈕，打開“Microsoft Office安全選項”窗口，選擇其中的“啟用此內容”，“確定”退出；

再切換到“視圖”選項卡，點擊“宏”→“錄製宏”，出現“錄製新宏”窗口，在“宏名”定義一個名稱為：PassWordBreaker，點擊“確定”退出；

第二步：再點擊“宏”→“查看宏”，選擇“宏名”下的“PasswordBreaker”並點擊“編輯”，打開“Microsoft Visual Basic”編輯器，用如下內容替換右側窗口中的所有代碼：

Sub PasswordBreaker()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

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

ActiveSheet.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 ActiveSheet.ProtectContents = False Then

MsgBox "One usable password is " & Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

ActiveWorkbook.Sheets(1).Select

Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _

Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Exit Sub

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

第三步：再點擊“宏”→“查看宏”，選擇“宏名”下的“PasswordBreaker”並點擊“執行”，密碼就現形了。...

excel表格的密碼忘記了，現在如何解密？

可通過VBA解密，注意：在破解之前最好先備份，免得發生意外！

詳細步驟如下：

1、點擊工具->宏->Visual Basic編輯器，打開VBA的編輯器；

2、Visual Basic編輯器中，點擊插入->模塊，插入一個新的模塊；

3、將下面的代碼複製到模塊中，不需改動任何代碼：

Option Explicit

Public Sub AllInternalPasswords()

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 " & vbCrLf & vbCrLf & "BeyondPC" & vbCrLf & "blog.sina.com.cn/beyondpc"

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......