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

Answer 1

为了测试这个，让我们创建一个名为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

enter image description here