[求助] 如何l利用vba，批量修改文件夹下所有工作簿中的VAB宏程序

Question

我不会vba编程~~文件夹下有500多个工作簿，每个工作簿的VAB宏都有密码保护，工程密码为“SH”，每个工作簿中都有一段相同的VAB宏程序，我想先解开每个工作簿VAB程序的密码，再将VAB程序中的20%修改成25%，编一段VAB程序批量修改，虚心向各位大侠求教，跪求代码~，急用~PS:后附模拟附件作为测试用。不明之处可以加我QQ：445423115
附件位置：http://club.excelhome.net/thread-1057608-1-1.html

Answer 1

1．信任对于VB项目的访问 

Sub SetAllowableVbe() 

  On Error Resume Next 

  Dim Chgset As Boolean 

  '陷阱测试，VBProject.Protection在这儿并无实际的意义 

  Debug.Print ThisWorkbook.VBProject.Protection 

  If Err.Number = 1004 Then 

    Err.Clear 

    Application.SendKeys "%TMS%T%V{ENTER}" 

    Chgset = True 

    DoEvents 

  End If 

  End If 

End If 

  '要执行的操作.... 

  '..... 

  '操作完成后还原操作前的状态 

  If Chgset Then Application.SendKeys "%TMS%T%V{ENTER}" 

End Sub 

2．操作密码工程 

Sub AllowPass() 

  Dim pw$ 

  pw = "SH" 

  If ThisWorkbook.VBProject.Protection = vbext_pp_locked Then 

    Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute 

    Application.SendKeys pw & "{ENTER}{ENTER}" 

    DoEvents 

  End If 

  '要执行的操作…. 

  '..... 

End Sub