excel文档加密破解，简单操作亲测有效

excel文件秘密忘记无法打开，试了网上的几种方法

1.将文件后缀改为rar压缩包格式改配置文件，但是将文件改为压缩包格式后打不开，提示文件已损坏。（可能已经优化）

2.下一些辅助工具来破解，但是需要银子。穷！

3.用vba来跑

a.新建一个excel文件，alt+f11进入VB界面

b.点击--插入--模块 将下方代码粘贴到模块里。

Sub crack()
 
 Dim i As Long
   
  Dim FileName As String
  
  i = 0
   
  FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")
  
 FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
  
 Application.ScreenUpdating = False
  
 line2: On Error GoTo line1
  
 Workbooks.Open FileName, , True, , i
  
 MsgBox "Password is " & i
  
 Exit Sub
  
 line1: i = i + 1
  
 Resume line2
  
 Application.ScreenUpdating = True
  
 End Sub

c.点击保存,保存类型设为启用宏的工作簿d.保存好后打开该excel文件，在开发工具--宏--选中刚刚创建的宏点击执行，会弹出一个选框，选中你要破解的excel文件，点击打开。稍等片刻，马上就好。