从VB代码尝试Unprotect VBProject时加载DLL时出错

Question

我正在尝试@SiddharthRout在此post中提供的代码。但它会产生错误

  

加载DLL

时出错

在第xlAp.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute行。

我在Windows 7上使用Office Professional Plus 2007。

欢迎任何建议。