VBA - 确定Activeworkbook是否有密码

Question

我正在尝试使用 VBA 来确定事件工作簿是否有密码。 (它是检查以确保事件工作簿可以安全分发的工具的一部分)

到目前为止我已经尝试过但没有成功:

• ActiveWorkbook.Password 返回 ******** 无论
  事件工作簿的密码实际上是 - 即使工作簿确实如此 没有密码。

• ActiveWorkbook.ProtectWindows 或 ActiveWorkbook.ProtectStructure
  即使事件工作簿有密码，也会返回 False。

任何帮助将不胜感激。

Answer 1

工作簿对象有一个“HasPassword”属性，您可以使用:

Public Sub TestIt()

    If ActiveWorkbook.HasPassword Then
        MsgBox "Password Protected"
    Else
        MsgBox "Not Password Protected"
    End If

End Sub