如果用VBA操作工作簿里面的VBA代码的时候,加的有宏保护,就需要填写密码,否则读取会报错。
多方查找,找到了如下解决方案,供有同样需求的朋友参考
myPW = "123"
'如果加的保护
If ActiveWorkbook.VBProject.Protection = vbext_pp_locked Then
' 模拟 alt + F11 按键,打开VBA编辑窗口
Application.SendKeys "%{F11}", True
Application.SendKeys "%T", True
Application.SendKeys "e", True
Application.SendKeys myPW, True
Application.SendKeys "{ENTER}", True
Application.SendKeys "{ENTER}", True
Application.SendKeys "%{F11}", True
End If