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

パスワードsayで保護して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

ここに画像の説明を入力してください