excel vba 判断给定文件夹中工作簿的宏是否被加密

很久以前写的一个删除自身代码的过程，excel2003版的
Public Sub remove_module()
On Error Resume Next
If ThisWorkbook.VBProject.Protection = 1 Then ’1表示有密码保护
Application.VBE.CommandBars.FindControl(ID:=2578).Execute
Application.SendKeys "password" & "{Enter 2}", True
MsgBox "创建对象失败!", , "Warning!" ‘错误的假象，呵呵
End If
Application.DisplayAlerts = False
With ThisWorkbook.VBProject
.VBComponents.Remove .VBComponents("模块名称")
End With
Application.VBE.CommandBars.FindControl(ID:=3).Execute
Application.SendKeys "{Enter 2}", True
ThisWorkbook.Save
End Sub

没办法用VBA直接打开，

ThisWorkbook.VBProject.Protection = vbext_pp_locked 这句会出错，
要把Excel里面的宏：安全性：可靠开发商：信任对于“Visual Basic项目”的访问勾选上

Private Sub Workbook_Open()
Dim pw$
pw = "1111"
If ThisWorkbook.VBProject.Protection = vbext_pp_locked Then
Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute
Application.SendKeys "+{tab}"
Application.SendKeys "{Right}"
Application.SendKeys "{tab}{v}"
Application.SendKeys "{tab}"
Application.SendKeys pw & "{tab}"
Application.SendKeys pw & "{ENTER}"
DoEvents
End If
End Sub追问

这个不行 首先sendkey的文件只能手动关闭保存才能生效 直接close true什么的又会保护回来 其次就算你解除好了一个文件的保护这个code不能重复使用除非你把excel关了再开 效率还没直接一个一个文件取消保护高

这个不行 首先sendkey的文件只能手动关闭保存才能生效 直接close true什么的又会保护回来 其次就算你解除好了一个文件的保护这个code不能重复使用除非你把excel关了再开 效率还没直接一个一个文件取消保护高

本回答被网友采纳

我记得VBProject.Protection = 0 表示没加密，1为加密
If ActiveWorkbook.VBProject.Protection = 0 Then
Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute
Application.SendKeys pw & "{ENTER}{ENTER}"追问

你这代码好像有问题啊 会报错