vba - 我无法使用 VBA 解锁 vbaproject

Question

下面是我的功能，由于某种原因它不起作用。如果我在最后一个 if 语句中放置一个断点并删除发送“%{F11}”它确实有效。所以我的猜测是“%F11”不起作用。有人有想法吗？

Sub UnprotecPassword(wb As Workbook, ByVal projectPassword As String)
    Dim currentActiveWb As Workbook    

    If wb.VBProject.Protection <> vbext_pp_locked Then
        Exit Sub
    End If
    Set currentActiveWb = ActiveWorkbook
    wb.Activate

    SendKeys "%{F11}"
    SendKeys "^r" ' Set focus to Explorer
    SendKeys "{TAB}" ' Tab to locked project
    SendKeys "~" ' Enter
    SendKeys projectPassword
    SendKeys "~" ' Enter

    If (wb.VBProject.Protection = vbext_pp_locked) Then
        MsgBox ("failed to unlock")
    End If
    currentActiveWb.Activate
End Sub

score 3 · Accepted Answer

为了测试这一点，让我们创建一个名为Book2.xlsm.

出于测试目的，将此代码粘贴到 Book2 模块中。

Sub Book2Macro()

End Sub

用密码保护它，a然后关闭它。这是锁定生效所必需的。

现在创建一个新的工作簿，比如 Book1，并在模块中粘贴此代码。

Sub Sample()
    UnprotecPassword Workbooks("Book2.xlsm"), "a"
End Sub

Sub UnprotecPassword(wb As Workbook, ByVal projectPassword As String)
    Dim currentActiveWb As Workbook

    If wb.VBProject.Protection <> 1 Then
        Exit Sub
    End If

    Set currentActiveWb = ActiveWorkbook

    wb.Activate

    SendKeys "%{F11}"
    SendKeys "^r" ' Set focus to Explorer
    SendKeys "{TAB}" ' Tab to locked project
    SendKeys "~" ' Enter
    SendKeys projectPassword
    SendKeys "~" ' Enter

    If (wb.VBProject.Protection = vbext_pp_locked) Then
        MsgBox ("failed to unlock")
    End If
    currentActiveWb.Activate
End Sub

现在打开我们创建的第一个工作簿；Book2.xlsm。检查 Book2 的 VBA 编辑器，您会注意到它受密码保护。您还会注意到它是活动工作簿。Book1点击激活View Tab | Switch Workbooks | Book1

在此处输入图像描述