如果密碼是6位數以內的數字，可用以下步驟解開（關掉所有程式，為了速度）：

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

subcrack()

dimiaslong

dimfilenameasstring

i=0

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

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

application.screenupdating=false

line2:onerrorgotoline1

workbooks.openfilename,,true,,i

msgbox"passwordis"&i

exitsub

line1:i=i+1

resumeline2

application.screenupdating=true

endsub

然後在此介面直接按f5執行此宏，選擇你的檔案，等啊等（看密碼長度了）