6

Como programar uma macro para excluir outra? Seria algo parecido, como quando, eu preciso chamar? Ex.:

Sub callmacro()
Call macro1
End sub

E, melhor ainda, se eu quiser programa-la para se auto excluir?

Ex.:

Sub macro1()

Dim i as...

For i = 0 to...
...
Next

'e aqui, depois de uma serie de comandos, a macro se auto excluiria.'

End sub
10
  • 1
    A pergunta é interessante. Mas ai vem a inevitável dúvida: há algum motivo pra você querer remover a macro? Commented 17/02/2016 às 15:43
  • Com certeza. A primeira indagaçao acredito que seja comum. Se eu tiver um planilha com comandos extensos e muito dinamica. A segunda talvez pareça inusitada, mas é uma possibilidade.
    – h1k3rpath
    Commented 17/02/2016 às 15:45
  • 2
    O meu ponto é: por que você precisaria excluir uma macro existente (seja isso feito por ela mesma ou por outra macro)? Não sei se é possível (imagino que seja, sem ser necessariamente trivial), mas não vejo muito propósito nisso. Uma planilha com comandos extensos foi - em teoria - planejada assim. Ninguém iria gastar tempo construindo um "comando" que não fosse necessário. Assim, eu queria saber se o seu problema na verdade não é outro (e as vezes tem solução diferente). Commented 17/02/2016 às 15:54
  • 1
    Nao precisa apagar. Na verdade é ate esclarecedor. Nao estou recusando criticas.
    – h1k3rpath
    Commented 17/02/2016 às 16:23
  • 1
    Acredite: não acontece com você. :) Commented 17/02/2016 às 17:05

2 Respostas 2

7

É possível fazer o que você quer, mas pra isso funcionar o usuário (sim, ele mesmo!) precisa alterar a configuração do Excel dele para indicar que confia em macros que fazem acesso ao modelo de objetos do projeto VBA (essa opção não é marcada por padrão porque assim evita vírus de macro).

A forma de dar esse acesso depende da versão do Excel. No Office 2010 (que é o que eu tenho aqui), o usuário deve:

1 - Selecionar o item "Opções" no menu "Arquivo".

inserir a descrição da imagem aqui

2 - Selecionar a opção "Central de Confiabilidade" e então clicar no botão "Configurações da Central de Confiabilidade..."

inserir a descrição da imagem aqui

3 - Selecionar a opção "Configurações de Macro" e então marcar a opção "Confiar no acesso ao modelo de objeto do projeto do VBA"

inserir a descrição da imagem aqui

Tendo isso sido configurado, o código a seguir funciona:

Sub RemoveEuMesmo()

    On Error Resume Next

    Set oModulo = ActiveWorkbook.VBProject.VBComponents("Módulo1")

    If Not oModulo Is Nothing Then

        oModulo.CodeModule.DeleteLines 1, oModulo.CodeModule.CountOfLines

        lin = "' Código removido automaticamente em " + Format(Now, "dd/mm/yyyy hh:MM:ss")
        oModulo.CodeModule.AddFromString lin

    End If

End Sub

Esse código é só de exemplo. Eu suponho que ele está no módulo de nome "Módulo1", e que é a única sub nesse módulo, e por isso removo todas as linhas de 1 a oModulo.CodeModule.CountOfLines. Se você quiser remover um trecho específico, você vai ter que saber de antemão quais são as linhas a serem removidas. Talvez tenha métodos para procurar (via uma espécie de reflexão) por uma sub com o nome dado, mas não procurei por detalhes e acho pouco provável que o VBA tenha esse nível de complexidade.

Ah, no exemplo, as linhas não são só removidas, eu deixo um comentário no lugar (achei que era legal a ilustração de que você também pode criar novo código diretamente em VBA).

Atenção: Como eu menciono em comentários, essa abordagem não é a ideal pra fazer o que eu entendi que vc precisa. Para ter um código que se adapta ao volume de dados (talvez ao ponto de nunca mais ser executado), requer apenas um if. O código pode permanecer ali, sem nunca mais executar. Entende? A abordagem da remoção pode parecer uma boa sacada (algo "clever"), mas ela requer configurações especiais que podem te trazer problemas. Primeiramente, ela pode abrir brechas para códigos maliciosos realmente serem executados no Excel do seu cliente/usuário. Em segundo lugar, ela vai claramente gerar pra você muitas dificuldades de manutenção do ambiente, pois se a configuração não estiver habilitada o código simplesmente não vai funcionar sem gerar qualquer mensagem de erro! Além disso, certos usuários podem ter uma péssima percepção da qualidade do seu produto, se você pedir pra eles habilitarem algo que é, digamos, perigoso.

3
  • Massa luiz. Se eu tivesse mais pontos lhe daria uma recompensa. Agradeço!
    – h1k3rpath
    Commented 17/02/2016 às 18:16
  • Obrigado. Fico feliz que gostou. Só que eu adicionei uma observação importante no final. Insisto que esse não é o melhor caminho. Mas, ai é com vc. Boa sorte! :) Commented 17/02/2016 às 18:17
  • 1
    Deixe comigo ;)
    – h1k3rpath
    Commented 17/02/2016 às 18:17
3

Tambem Achei desta forma:

Sub DeleteModule()
Dim VBProj As VBIDE.VBproject
Dim VBComp As VBIDE.VBComponent
Set VBProj = activeworkbook.VBProject
Set VBComp = VBProj.VBComponent("Module1")
VBProj.VBComponents.Remove VBComp
End sub

Funciona tambem.

1
  • Verdade, bem lembrado. A diferença importante é que nesse exemplo você literalmente remove o módulo (com tudo dentro). Na solução da minha resposta o módulo continua lá e você tem controle exato sobre as linhas de código a serem removidas. :) Se quiser, pode editar a resposta pra incluir essa diferença nela (ai eu apago do comentário). Commented 17/02/2016 às 21:00

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .