如何破解Excel VBA密码

Excel是一个专门用于整理数据的电子表格，为了保障表格的安全，用户可以为文档进行加密，可以设置以下类型密码：打开密码、编辑密码、工作表密码、共享账簿密码以及VBA密码。VBA全称是VisualBasicforApplications，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。VBA是VisualBasic的一种宏语言，主要能用来扩展Windows的应用程式功能，特别是MicrosoftOffice软件，特别是Excel表格。另外，也可说VBA是一种应用程式视觉化的Basic脚本。实际上VBA是寄生于VB应用程序的版本，可以具备VBA的宏功能。VBA密码就是为变成语言设置访问权限。破解VBA密码有两种方法：1、使用宏代码，这种方法比较专业，不具有普遍的适用性；2、使用专业的第三方密码破解工具，这个可以广泛被使用，传播比较广泛的是AdvancedOfficePasswordRecovery，使用软件打开Excel文档，程序会自动开始破解VBA密码的 *** 作，一旦破解成功，用户可以更改Excel文档的VBA密码，重新获取权限。

去下载一个UltraEdit。装上后打开这个EXE（建议备份一个起来，成功了再删掉），然后搜索想要改的字，比如 "File"，你就搜索46 00 69 00 6c 00 65 00　(十六进制的ascii码，并且一个字符占用两个字节——因为这是Unicode编码——字母的话，后面加一个 00，像我这样），如果是汉字的话就麻烦点，你得查到它的Unicode码。然后再用这个编码转成16进制去搜索，修改的话直接改，改完保存就行

Dim md5 As New MD5CryptoServiceProvider
Dim username As Byte() = (New ASCIIEncoding)GetBytes(TextBox1Text)
'转换为哈希值Byte数组
Dim mdByte As Byte() = md5ComputeHash(username)
'Dim mdString As String = SystemBitConverterToString(mdByte)
Dim mdString As String = (New ASCIIEncoding)GetString(mdByte)
TextBox2Text = mdString
md5理论上是不可破解的，要对照，只能再次加密后对照，网上也有些专门破解的网站，不过我想你要的不是那个吧

D:\Microsoft Visual Studio\VB98\Wizards\PDWizard\PDCMDLNEXE
开始菜单---程序------Microsoft Visual Basic 60
中文版-----Microsoft Visual Basic 60 中文版工具----Package & Deployment 向导
按照提示一步一步来就行了。

---