怎样破解excel密码

http://www.pconline.com.cn/pcedu/tuijian/system/decode/0602/760649.html
多功能密码破解软件
不要用来做坏事啊
^^

按Alt+F11进入VBA编辑器——新建模块——输入以下代码——运行代码即可解密

Attribute VB_Name = "解锁程序"
Option Explicit

Public Sub 解锁程序()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Adapted