Hvordan sletter jeg et modul eller en makro fra VBA?

Man kan slette ekstra moduler via VBA-kode, men man kan ikke slette moduler for f.eks. worksheets og ThisWorkbook.
Til gengæld kan du bruge nedenstående kode til at slette indholdet af disse moduler. Denne metode må du kunne bruge.

Sub DeleteModuleContent(ByVal wb As Workbook, ByVal DeleteModuleName As String)
\' sletter indholder af DeleteModuleName i wb
\' brug denne, hvis du ikke kan slette hele modulet
    On Error Resume Next
    With wb.VBProject.VBComponents(DeleteModuleName).CodeModule
        .DeleteLines 1, .CountOfLines
    End With
    On Error GoTo 0
End Sub

Eksempel:
DeleteModuleContent ActiveWorkbook, \"ThisWorkbook\"

Hey Jan, My Man :o)

Jeg checker det lige.

Har du set mit spørgsmål til dig: http://www.eksperten.dk/spm/98077

Du kan også gøre det på en anden måde, nemlig lade din makro være afhængig af navnet på det aktive regneark.

If ActiveWorkbook.Name <> \"Kørmig.xls\" Then
....
End If

Det kan nemlig godt være, at du får problemer med jan\'s udgave (som virker fint), men som jeg læser det, så skal du slette en makro, som allerede kører, og det tror jeg umiddelbart ikke, at du kan. Men prøv det da, og lad os høre resultatet.

Når jeg nu læser dit spørgsmål igen kan det godt være, at du alligevel kan bruge den kode, som sletter hele modulet.
Den ser sådan ud:

Sub DeleteVBComponent(ByVal wb As Workbook, ByVal CompName As String)
\' sletter vbcomponenten med navnet CompName fra wb
    Application.DisplayAlerts = False
    On Error Resume Next \' ignores any errors
    wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents(CompName) \' delete the component
    On Error GoTo 0
    Application.DisplayAlerts = True
End Sub

Eksempel:
DeleteVBComponent ActiveWorkbook, \"TestModule\"

Kom lige i tanke om, at jeg faktisk slet ikke ønsker at Excel skal prompte for om man ønsker at benytte makroer eller ej?

Som sådan må makroerne godt ligge der, bare de ikke bliver kørt...

Sagen er at mit nye Excel-ark skal sendes ud til kunder. Derfor skal de ikke promptes for om der skal benyttes makroer. Giver det mening?

Så skal du vist bare bruge denne her:

Application.DisplayAlerts = False

Glem min sidste kommentar...ved at bruge begge dine svar Jan, så lykkedes det mig at slette mine 2 moduler og tømme ThisWordbook. Derved promptes brugeren ikke for makroerne!

kanon!

Tak skal du have jan :o) Pointene er dine.

/Thomas

PS: Jeg ville blive virkelig glad, hvis du gad kigge på denne http://www.eksperten.dk/spm/98077.
Jeg opretter et nyt spgm til dig, hvis du kan svare.

Jeg kigger på det ..... selvom det umiddelbart ser vanskeligt ud. Måske er der andre der kan hjælpe .....

100 point.....lokke lokke :o)

Jeg ville såmænd give dig et svar uanset hvad - hvis jeg kunne :-)