Mall

Ta bort procedurer i moduler

Här demonstreras hur vi kan på ett enkelt sätt ta bort enstaka procedurer i existerande moduler.
Även här använder vi oss av egenskapen CodeModule.

Glöm inte av att ange en referens "Microsoft Visual Basic for Applications Extensibility 5.3".

Sub Ta_Bort_Procedur()

   '© 2002 Alla rättigheter XL-Dennis

   Dim vbaProjekt As VBIDE.VBProject

   Dim vbaModul As VBIDE.VBComponent

   Dim cdModul As VBIDE.CodeModule

   Set vbaProjekt = ThisWorkbook.VBProject

   Set vbaModul = vbaProjekt.VBComponents("Modul2")

   Set cdModul = vbaModul.CodeModule

  'Genom att identifiera vilken rad proceduren startar respektive slutar vid
'så kan vi ta bort proceduren.

   With cdModul

      .DeleteLines .ProcStartLine("Test", 0), .ProcCountLines("Test", 0)

   End With

   MsgBox "Procedur Test är borttagen.", vbInformation

End Sub