É 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".
2 - Selecionar a opção "Central de Confiabilidade" e então clicar no botão "Configurações da Central de Confiabilidade..."
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"
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.