如果Excel檔案的開啟密碼忘記了，且密碼是6位數以內的數字，可用以下步驟解開：關閉所有程式（為了速度）。新開一Excel，同時按Alt和F11，進入VBA介面，點選單上的插入，模組，在新出來的視窗貼上一下程式碼：Sub crack()Dim i As LongDim FileName As Stringi = 1FileName = Application.GetOpenFilename("Excel檔案（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))Application.ScreenUpdating = Falseline2: On Error GoTo line1Workbooks.Open FileName, False, True, , iMsgBox "Password is " & iExit Subline1: i = i + 1Resume line2Application.ScreenUpdating = TrueEnd Sub然後直接按F5執行此宏，找到你要的檔案，等啊等，...如果有字母，稍微複雜些，道理是類似的。太長的密碼，基本解不開了。若果還有讀寫密碼，且與開啟密碼一樣，將Workbooks.Open FileName, False, True, , i改為Workbooks.Open FileName, False, True, , i, i按下F5後會出現密碼
如果Excel檔案的開啟密碼忘記了，且密碼是6位數以內的數字，可用以下步驟解開：關閉所有程式（為了速度）。新開一Excel，同時按Alt和F11，進入VBA介面，點選單上的插入，模組，在新出來的視窗貼上一下程式碼：Sub crack()Dim i As LongDim FileName As Stringi = 1FileName = Application.GetOpenFilename("Excel檔案（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))Application.ScreenUpdating = Falseline2: On Error GoTo line1Workbooks.Open FileName, False, True, , iMsgBox "Password is " & iExit Subline1: i = i + 1Resume line2Application.ScreenUpdating = TrueEnd Sub然後直接按F5執行此宏，找到你要的檔案，等啊等，...如果有字母，稍微複雜些，道理是類似的。太長的密碼，基本解不開了。若果還有讀寫密碼，且與開啟密碼一樣，將Workbooks.Open FileName, False, True, , i改為Workbooks.Open FileName, False, True, , i, i按下F5後會出現密碼