谁能帮我做一个VBA打开带密码的EXCEL文件程序。

Posted 2023-03-16

新建一个excel文档，另存为*.xlsm格式，在excel选项-信任中心设置-宏安全设置 中选择启用所有宏

然后返回excel界面，按alt+F11,在thisworkbook后面的代码窗口写以下代码：
Private Sub workbook_open()
Application.Visible = False
n = InputBox("请输入密码")
If n <> "jianqiji" Then
Application.Quit
Else: Application.Visible = True
End If
End Sub

代码里面 jianqiji 是密码，可以改成你想要的 参考技术A 如果你想打开一个你不知道密码的加了密的EXCEL文件，一般VBA是没法完成的，可以使用暴力破解，但往往是等N长时间也没动静。专业EXCEL密码破解程序也只是在速度上有所改进，对简单密码有效而已。
如果是打开一个知道密码的EXCEL文件那就简单了。 参考技术B 2003版：Office Password Remover 2.0 半分钟搞定（运行时需要在网）