如果excel檔案的開啟密碼忘記了，且密碼是7位數以內的數字，可用以下步驟解開：

新開一excel，同時按alt和f11，進入vba介面，點選單上的插入，模組，在新出來的視窗貼上一下程式碼：

subcrack()

dimiaslong

dimfilenameasstring

application.screenupdating=false

i=1

filename=application.getopenfilename("excel檔案（*.xls&*.xlsx）,*.xls;*.xlsx",,"vba破解")

filename=right(filename,len(filename)-instrrev(filename,"\"))

line2:

onerrorgotoline1

dowhiletrue

workbooks.openfilename,,,,i

msgbox"passwordis"&i

exitsub

loop

line1:

i=i+1

resumeline2

application.screenupdating=true

endsub

然後直接在此介面下按f5執行此宏

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

若果還有讀寫密碼，且與開啟密碼一樣，將workbooks.openfilename,,,,i改為workbooks.openfilename,,,,i,i