怎樣破解EXCEL密碼

如果Excel文件的打開密碼忘記了，且密碼是6位數以內的數字，可用以下步驟解開：

關閉所有程序（為了速度）。新開壹Excel，同時按Alt和F11，進入VBA界面，點菜單上的插入，模塊，在新出來的窗口粘貼壹下代碼：

Sub crack()

Dim i As Long

Dim FileName As String

i = 1

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, False, True, , i

MsgBox "Password is " & i

Exit Sub

line1: i = i + 1

Resume line2

Application.ScreenUpdating = True

End Sub

然後直接按F5運行此宏，找到妳要的文件，等啊等，...

如果有字母，稍微復雜些，道理是類似的。太長的密碼，基本解不開了。

若果還有讀寫密碼，且與打開密碼壹樣，將Workbooks.Open FileName, False, True, , i改為Workbooks.Open FileName, False, True, , i, i

按下F5後會出現密碼

上一篇:用C語言實現在桌面上畫圖

下一篇:琳達·布萊爾簡介。