excel密码忘记了，如何打开

excel密码忘记了，如何打开

如果Ex二挥声cel文件的打开密码忘记来自了，且密码是7位数货甲端置批别以内的数字，可用以下步骤解开：

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

Subcrack()

DimiAsLong

Dim360问答FileNameAsString

Applicati秋绿表求室杀思音技on.ScreenUpdating=False

i=1

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

FileName=Right(F病美边抓医范建农你娘ileName,Len(FileName)-InStrRev(FileName,"\"))

line2:

OnErrorGoToline1

DoWhileTrue

***.OpenFileName,,,,i

MsgBox"Passwordis"&i

ExitSub

Loop

line1:

i=i+1

Resumeline2

Application.ScreenUpdating=True

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