打開壹個新的Excel,同時按Alt和F11進入VBA界面,點擊菜單上的插入和模塊,將代碼粘貼到新窗口中:
子裂紋()
暗淡我壹樣長
將文件名標註為字符串
i = 0
filename = application . getopen filename(" Excel文件(*。xls & amp;*.xlsx),*。xls*.xlsx》、《VBA破解》)
FileName = Right(FileName,Len(FileName)-instr rev(FileName," \ "))
申請。ScreenUpdating = False
第2行:出錯時轉到第1行
練習冊。打開文件名,,True,,I
密碼是。我
出口接頭
line1: i = i + 1
簡歷行2
申請。ScreenUpdating = True
末端接頭
然後在這個界面直接按F5運行這個宏,選擇壹個文件,等待(取決於密碼長度)。