[已解决]怎样删除被密码保护的工程模块里的代码

lan8930 · 发表于 2011-2-15 17:51

我有一断代码，设了工程密码。我想在误操作的时候，自动删掉这些模块1里的代码。
以下是删除模块1里代码的过程。可是一旦加了工程密码，就不能运行了。
问怎样才能删除被保护的工程模块代码。
就象，打开带密保的XLS文件一样。将密码写入VBA代码里即可打开。请问工程密码是否也能如此操作？

Sub delvba()
Application.VBE.ActiveVBProject.VBComponents("模块1").CodeModule.DeleteLines 1, Application.VBE.ActiveVBProject.VBComponents("模块1").CodeModule.CountOfLines ''删除模块里的代码
ThisWorkbook.Save '自动保存工作薄
End Sub

请教高手，谢谢。

最佳答案

月排行榜 / 总排行榜

爱疯

2011-2-15 19:52

是这样吗{:041:}

新建文件夹.rar (15.32 KB, 下载次数: 10045)

BAIXINGR · 发表于 2011-2-15 18:58

太深奥了

爱疯 · 发表于 2011-2-15 19:52

是这样吗{:041:}

新建文件夹.rar (15.32 KB, 下载次数: 10045)

老糊涂 · 发表于 2011-2-15 21:30

{:091:}看看

lan8930 · 发表于 2011-2-16 17:42

回复爱疯的帖子

太感谢了.爱死你了.

		自动登录	找回密码
密码			注册