View original (French)

Create a macro to delete modules, userforms,

Solved
yao.chris -  
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

  1.  Mytå Contributor
    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
    1. yao.chris Author
      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
      1. Mytå Contributor
        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
        1. Mytå Contributor
          Re the Forum

          Additional Information 
           Type 1: Standard Module
           Type 2: Class Module
           Type 3: Userform
           Type 100: Sheet Module or ThisWorkbook
          Mytå
          0
      2. yao.chris Author
        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
        1. Mytå Contributor
          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
      4. yao.chris Author
        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