View original (French)

Create a macro to delete modules, userforms,

Solved
yao.chris Posted messages 95 Status Member -  
yao.chris Posted messages 95 Status Member -
Hello,

do you know how to create a macro that allows you to delete modules, userforms, ThisWorkbook code, and sheet code?
I have tried the codes I found online but none of them work.

Thank you for your help.
yao

5 answers

Answer 1 / 5
Mytå Posted messages 4246 Registration date   Status Contributor Last intervention   957
 
Hello Forum

Have you added the reference
"Microsoft Visual Basic For Application Extensibility x.x"?

Mytå

--
Thank you for following up on your question, we are not robots...
“If debugging is the art of removing bugs, then programming must be the art of creating them.”
0
Answer 2 / 5
yao.chris Posted messages 95 Status Member 2
 
Good evening Myta,

Thank you for your response.
Yes, I did it but with no results.
Is there a way to create a macro without adding this reference?

Thank you for your help.
yao
0
Answer 3 / 5
Mytå Posted messages 4246 Registration date   Status Contributor Last intervention   957
 
Hello Forum

To delete code modules. 
 Sub DeleteModule() 'Macro to delete code modules from the workbook Dim i As Integer For i = ThisWorkbook.VBProject.VBComponents.Count To 1 Step -1 If ThisWorkbook.VBProject.VBComponents.Item(i).Type = 1 Then ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents.Item(i) End If Next i End Sub

In the macro security section, there is a tab called "Trusted Publishers".
In this tab, you need to check "Trust access to the VBA project object model".

Mytå
--
Thank you for following up on your question, we are not robots...
“If debugging is the art of removing bugs, then programming must be the art of introducing them.”
0
Mytå Posted messages 4246 Registration date   Status Contributor Last intervention   957
 
Re the Forum

Additional Information 
 Type 1: Standard Module
 Type 2: Class Module
 Type 3: Userform
 Type 100: Sheet Module or ThisWorkbook
Mytå
0
Answer 4 / 5
yao.chris Posted messages 95 Status Member 2
 
Good evening Mytå,

I just applied your macro.
Everything works great except for Type 100; I have a runtime error on Focus.

The most important thing for me was to remove the Userforms and modules.
Types 1 and 3 work perfectly.

Thank you very much for your help.

Good night.
yao
0
Mytå Posted messages 4246 Registration date   Status Contributor Last intervention   957
 
Re the Forum

To delete all VBA modules from the file. 
 Sub DeleteAllCodeInModule() Dim VBCodeMod As Object Dim I As Long With ThisWorkbook.VBProject For I = 1 To .VBComponents.Count Set VBCodeMod = .VBComponents(I).CodeModule VBCodeMod.DeleteLines 1, VBCodeMod.CountOfLines Next I End With End Sub

Mytå
0
Answer 5 / 5
yao.chris Posted messages 95 Status Member 2
 
Hello Mita,

Well done!!!
This is exactly what I was looking for, and it works great.

Thank you for your valuable help.

Have a great day and thanks again.
yao
0