excel - 通过personal.xlsb中的宏测试VBAProject是否有保护

Question

我在personal.xlsb 中创建了一些宏来测试其他Excel 工具。宏应该测试打开的文档的 VBAProject 是否有密码保护。

我在 Personal.xslb 中创建了以下代码，无论我是否为测试文档设置密码，它始终显示 True。

Sub testVBAPasswort()
   '1 = VB-Project protected
   '0 = VB-Project not protected
    If Application.ActiveWorkbook.VBProject.Protection = 1 Then
        MsgBox "False"
    Else
        MsgBox "True"
    End If
End Sub

Answer 1

尝试测试 VBProject 的元素.我用 Workbook.VBPRoject.VBComponents.Count 做这个.然后我使用错误处理程序来测试 Err.Number = 50289 ，这意味着工作簿受密码保护且当前已锁定。当然，一旦VBProject已解锁，它将不再引发该错误。

编辑:

您应该直接引用您要测试的工作簿，否则您可能正在测试 personal.xlsb本身。如果您需要能够动态测试工作簿，那么只需添加

Dim w as Workbook
For each w in Application.Workbooks
    If Not w.Name = "personal.xlsb" Then
        If w.VBProject.Protection = 1 Then
            MsgBox w.Name & " Password Protected"
        Else
            MsgBox w.Name & " Not Password Protected"
        End If
    End If
Next w