使用VBA自动填写宏保护的密码_vba vbext_pp_locked

如果用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
1
2
3
4
5
6
7
8
9
10
11
12