VBA工程密码问题

838225419

BMW5566 发表于 2024-1-29 17:24
没事，谢谢帮忙！我再等等看有没有其他大神能解

这样试试：



Sub 删除() '比如密码为123

With Workbooks(Workbooks.Count) '以下开始删除VBA代码
Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute
Application.SendKeys "1"
Application.SendKeys "2"
Application.SendKeys "3" & "{ENTER}"
Application.SendKeys "{Esc}"
DoEvents
Dim vbcCom, Vbc
Set vbcCom = .VBProject.VBComponents
For Each Vbc In vbcCom
If Vbc.Name Like "Sheet*" Or Vbc.Name Like "This*" Then
Vbc.CodeModule.DeleteLines 1, Vbc.CodeModule.CountOfLines
Else
vbcCom.Remove (Vbc)
End If
Next Vbc
.Save
.Close
End With '删除结束
End Sub

BMW5566

838225419 发表于 2024-1-30 09:32
这样试试：

这个运行不了，报错：编译错误，加载DLL错误！......

BMW5566

838225419 发表于 2024-1-30 08:54
这个是zhaogang1960编写的代码，可参考一下：
原贴网址：https://club.excelhome.net/thread-981143-1-1 ...

这个运行不了，报错：编译错误，加载DLL错误！......

838225419

BMW5566 发表于 2024-1-30 13:44
这个运行不了，报错：编译错误，加载DLL错误！......

压缩包里的文件，我这里在2007下运行正常啊，是不是你excel的问题

BMW5566

838225419 发表于 2024-1-30 14:20
压缩包里的文件，我这里在2007下运行正常啊，是不是你excel的问题

应该不可能，我用2003版本的

BMW5566

提示这边错误；大神帮我看下怎么解决

micch

都要经历这个过程，建议可以不用研究这个问题。sendkey可以进行解密后再操作。但是没啥意义。既然你的工程保护密码能起作用。那么代码只需要写个限制语句就够了。如果工程密码没有用，你有删除代码也没啥意义，反正里面的代码别人都看到了。            真想防止别人白嫖代码，就研究更复杂有效的方式，只是简单工程保护，形同虚设

838225419

BMW5566 发表于 2024-1-30 14:53
提示这边错误；大神帮我看下怎么解决

可以安装2007吗？在07下试试，应该是版本的问题

BMW5566

838225419 发表于 2024-1-30 15:22
可以安装2007吗？在07下试试，应该是版本的问题

不好意思，我看错了，装是2007版本的

838225419

https://club.excelhome.net/thread-388157-1-1.html