如何使用用户表单在宏中打开受密码保护的文件？
How to open a password protected file in a macro with user forms?
我有一个受密码保护的 excel 文件，我需要在宏中使用它，但恐怕密码每个月都会更改。为了访问该文件，我想创建一个用户表单来在每次宏为 运行 时输入密码。以下是我对此子的目标：
- Select 要打开的文件
- 在用户表单中输入密码（如果文件受保护）
- 使用选择的路径和密码打开文件。
我可以自己完成第 1 步和第 3 步，但我不确定如何将用户表单合并到此子程序中。你会如何解决这个问题？
感谢@Scott Craner 的提示，我找到了解决方案。这是我使用的：
If MsgBox("Is the APPS Invoice password protected?", vbYesNo, "APPS Invoice") = vbYes Then
pass = Application.InputBox("Please enter the password now:", Type:=2)
End If
On Error GoTo ErrHandler
Set APPSInvoiceWB = Workbooks.Open(APPSInvoiceFN, Password:=pass)
On Error GoTo 0
我用一个没有密码保护的文件对其进行了测试，但没有出现问题。我通过搜索没有找到太多关于这个主题的信息，所以我希望这对以后的其他人有所帮助！
我有一个受密码保护的 excel 文件，我需要在宏中使用它，但恐怕密码每个月都会更改。为了访问该文件，我想创建一个用户表单来在每次宏为 运行 时输入密码。以下是我对此子的目标：
- Select 要打开的文件
- 在用户表单中输入密码（如果文件受保护）
- 使用选择的路径和密码打开文件。
我可以自己完成第 1 步和第 3 步，但我不确定如何将用户表单合并到此子程序中。你会如何解决这个问题？
感谢@Scott Craner 的提示，我找到了解决方案。这是我使用的：
If MsgBox("Is the APPS Invoice password protected?", vbYesNo, "APPS Invoice") = vbYes Then
pass = Application.InputBox("Please enter the password now:", Type:=2)
End If
On Error GoTo ErrHandler
Set APPSInvoiceWB = Workbooks.Open(APPSInvoiceFN, Password:=pass)
On Error GoTo 0
我用一个没有密码保护的文件对其进行了测试，但没有出现问题。我通过搜索没有找到太多关于这个主题的信息，所以我希望这对以后的其他人有所帮助！