批量删除宏模块窗体类模块模板

huazai688 · 发表于 2019-7-24 14:34

f8b1987 发表于 2019-7-24 11:06
第一次回复的代码有误，已修改，请留意。

收悉，谢谢老师巨献！

aman1516 · 发表于 2019-7-27 10:03

谢谢分享，楼主辛苦了，这对文档的整理非常方便！

aman1516 · 发表于 2019-7-27 10:29

设置了VBA密码保护的不能删除，能否加个提示输入密码后删除（或直接去除密码并删除）
另外，后台打开屏蔽各种弹窗就更好了

f8b1987 · 发表于 2019-7-29 12:50

本帖最后由 f8b1987 于 2019-7-29 13:26 编辑

aman1516 发表于 2019-7-27 10:29
设置了VBA密码保护的不能删除，能否加个提示输入密码后删除（或直接去除密码并删除）
另外，后台打开屏蔽 ...

前面几句applition开头的，去掉注释就可以屏蔽弹窗。修改代码时，我好像忘了去掉这几句前面的逗号。如有其他提示，请告知提示内容。去除密码的代码，可以搜一下，直接加里面哈。我比较少设置VBA密码

ddz79101 · 发表于 2024-6-9 09:11

f8b1987 发表于 2019-7-29 12:50
前面几句applition开头的，去掉注释就可以屏蔽弹窗。修改代码时，我好像忘了去掉这几句前面的逗号。如有 ...

老师！如何修改此代码适用于选择文件夹再选择工作簿？谢谢

武松打鼓 · 发表于 2024-9-13 17:40

f8b1987 发表于 2019-7-24 11:16
20190724已更新，补充了指定删除类型为窗体的代码，该段代码已注释，请自行解除注释及修改。

想只删除指定的模块，怎么改一下代码

f8b1987 · 发表于 2024-9-13 20:36

本帖最后由 f8b1987 于 2024-9-13 20:46 编辑

武松打鼓发表于 2024-9-13 17:40
想只删除指定的模块，怎么改一下代码

把注释代码接触注释，拿出来自己修改用就行。
以下代码是循环工作簿模块窗体，返回模块名称

            Set otherWorkbook = myxl.Workbooks("D:\宏文件.xlsm")
            For Each vbComponent In otherWorkbook.VBProject.VBComponents
                     Set CodeModule = vbComponent.CodeModule
                     debug.pring vbComponent.Name
            Next vbComponent

武松打鼓 · 发表于 2024-9-20 09:03

f8b1987 发表于 2019-7-29 12:50
前面几句applition开头的，去掉注释就可以屏蔽弹窗。修改代码时，我好像忘了去掉这几句前面的逗号。如有 ...

再请教，想删除指定的宏怎么做？比如sheet1中有宏1、2、3，我只想删除宏2

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

[分享] 批量删除宏模块窗体类模块模板