如果Excel文件的打开密码忘记了

如果E x c e l文件的打开

密码忘记了

Document number：WTWYT-WYWY-BTGTT-YTTYU-2018GT

如果Excel文件的打开密码忘记了，且密码是7位数以内的数字，可用以下步骤解开：

新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：

Subcrack()

DimiAsLong

DimFileNameAsString

=False

i=1

FileName=("Excel文件（*.xls&*.xlsx）,*.xls;*.xlsx",,"VBA破解")

FileName=Right(FileName,Len(FileName)-InStrRev(FileName,"\"))

line2:

OnErrorGoToline1

DoWhileTrue

,,,,i

MsgBox"Passwordis"&i

ExitSub

Loop

line1:

i=i+1

Resumeline2

=True

EndSub然后直接在此界面下按F5运行此宏如果有字母，稍微复杂些，道理是类似的。太长的密码，基本解不开了。若果还有读写密码，且与打开密码一样，将,,,,i改为,,,,i,i