關閉所有程序(為了速度)。打開壹個新的Excel,同時按Alt和F11進入VBA界面,點擊菜單上的插入和模塊,將代碼粘貼到新窗口中:
子裂紋()
暗淡我壹樣長
將文件名標註為字符串
i = 1
filename = application . getopen filename(" Excel文件(*。xls & amp;*.xlsx),*。xls*.xlsx》、《VBA破解》)
FileName = Right(FileName,Len(FileName)-instr rev(FileName," \ "))
申請。ScreenUpdating = False
第2行:出錯時轉到第1行
練習冊。打開文件名,False,True,,I
密碼是。我
出口接頭
line1: i = i + 1
簡歷行2
申請。ScreenUpdating = True
末端接頭
然後直接按F5運行這個宏,找到想要的文件,以此類推。...
如果有字母,就稍微復雜壹點,道理也差不多。密碼太長,基本解決不了。
如果有讀寫密碼,並且與打開密碼相同,請更改工作簿。openfilename、false、true和I到工作簿。openfilename,false,true,,I,I。
密碼將在按F5後出現。