【疑难问题】关于使用sendkey输入vba工程密码，与输入法切换的报错问题

supermhp

我在使用vba对excel文档编程时，需要用到解除vba工程密码的情况。

但是我发现在输入法是“中文（简体）”时会弹出如下窗口（如图，会导致可以点击“保护”而取消或修改密码）（即使在英文输入法状态下，且我的密码是全数字的状态下也会弹出该窗口）。但是在“英文（美国）”，或者“搜狗输入法”时就会顺畅运行代码。(另外我也试过“中文（繁体，台湾）”等，也会报错）。


所以想请问下，有什么办法：
1、通过vba切换输入法至英文（并非是用“shift”切换至英文输入，而是需要用到“ctrl+空格”切换的功能）
2、能否优化代码，不报错？比如用copy paste以后再删除剪贴板？
3、到底是什么原因导致的跳窗报错呢？

谢谢各位大大！

我的代码如下：

Sub Unprotect()   
  Dim strPassWord As String
   
  Application.VBE.MainWindow.Visible = False
  strPassWord = "123456"       ’这是保护vba宏的密码
  Application.VBE.CommandBars.FindControl(ID:=2578).Execute
  SendKeys strPassWord & "{enter}{tab}{enter}"
  DoEvents
End Sub