检查 Excel 文件是否受密码保护

Question

我正在尝试通过 VBA 打开 Excel (xlsm) 文件。它可能会或可能不会受到（已知）密码的保护。我正在使用此代码：

On Error Resume Next
Workbooks.Open filename, Password:=user_entered_pw
opened = (Err.Number=0)
On Error Goto 0

现在，如果工作簿有密码，这可以正常工作。但是，如果它没有受到保护，则无法打开它。如果还有工作簿结构保护处于活动状态，显然这是 XL2007 中的一个错误。 (http://vbaadventures.blogspot.com/2009/01/possible-error-in-excel-2007.html)。在旧的 XL2003 上，提供密码会打开未受保护和受密码保护的文件。

我试过了：

Workbooks.Open filename, Password:=user_entered_pw
If (Err.Number <> 0) Then workbooks.open filename

这适用于未受保护和受保护的文件。但是，如果用户输入了错误的密码，它会运行到第二行并弹出“输入密码”提示，这是我不想要的。

如何解决这个问题？

Answer 1

记录一下——原因确实是我打开的工作簿的结构保护。 我可以通过禁用结构保护并在 Workbook_Open() 中重新保护（在受保护的工作簿中）来规避这个问题。

在结构保护无效的情况下，即使没有密码，Workbooks.Open 带密码也不会失败。

由于我是通过 VBA 方法打开的，所以 VBA 代码已经是可信的，这意味着肯定会调用 Workbook_Open 方法。

Answer 2

1. 仅针对此特定问题使用 1004 错误处理，对 Sub 中的所有其他问题使用 On Error Resume Next。

2. 声明上方Workbooks.Open filename, Password:=user_entered_pw 还添加另一个不带密码参数的行语句。

1234563在预打开函数中使用该信息。