VBA Tips - Excluir um módulo VBA - Delete Module After Running VBA Code

| Blog Office VBA | Blog Excel | Blog Access |

Não há muito o que dizer. Onde você usaria este código? Bem, talvez para proteger as aplicações que você desenvolve e cujo contrato ainda não tenha sido totalmente cumprido (pago)...Divirta-se!

Sub DeleteThisModule()

    Dim vbCom As Object

    MsgBox "Hi, I will delete myself "

    Set vbCom = Application.VBE.ActiveVBProject.VBComponents

    vbCom.Remove VBComponent:= _

    vbCom.Item("Module1")

End Sub

Sub ExcluirModuloVBA()

    Dim vbCom As Object

    Dim NomeModulo As String

    NomeModulo = "Módulo1"

    Set vbCom = Application.VBE.ActiveVBProject.VBComponents

    vbCom.Remove VBComponent:= vbCom.Item(NomeModulo)

    MsgBox NomeModulo & " excluído com sucesso"

End Sub

Ahhh...Não se esqueça, para que o código funcione, habilite a opção "Confiar no acesso ao modelo de objeto no projeto do VBA" na janela de Segurança de Macros.

Reference: http://www.ozgrid.com/VBA/delete-module.htm

Tags: VBA, Word, Compare Formatting Changes in Word Document using VBA, Compare Headers and Footers in Word Document using VBA, Compare Word Documents