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