将项目密码传递给锁定的VBA项目

如何向受保护的VBA项目传递密码？
要检查项目编号11是否受到保护，我们可以使用以下代码：

Application.VBE.VBProjects(11).Protection

如果

yes

则返回1，如果

no

则返回0，但除了基于

SendKeys（）

的方法之外，我找不到任何有关传递密码的信息

---

…

SendKeys

是唯一的方法。

'Const conPW as String = "MyPassword"
'Open VBE
Call SendKeys("%{F11}", True)
'Open Project Explorer
Call SendKeys("%(V)P", True)
'PageUp 5 times to be sure "VBAProject" is selected
Call SendKeys("{PGUP 5}", True)
'Hit Enter to give prompt, enter PW and Enter again.
Call SendKeys("{ENTER}" & conPW & "{ENTER}", True)