Bem estou escrevendo este post de excluindo modulo junto com “Inserindo Modulo em Outra Planilha” (link no final do artigo), pois creio que você pode usar um complementando com o outro.
Lembrando que ao excluir o módulo e Salvar…já era, não tem como voltar!.
Abaixo segue o código, a idéia é simples: eu abro uma planilha existente e excluo o módulo que já conheço (“Mod1”).
Tentei deixar o mais simples possível e assim ficar fácil o entendimento, e portanto não coloquei para Salvar após inserir o módulo ou Paralisar a tela antes de executar.
* Para o código abaixo funcionar é necessário habilitar opção de confiança de objetos VBA
* Também é necessário adicionar na biblioteca a referencia Extensibility, dúvida ver o vídeo abaixo
Codigo Excluindo modulo
_________________________________________________________________________
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Sub EXCLUIR_MODULO_EXCELEVBA_COM_BR() 'Para esse código funcionar é necessário adicionar a referencia de Extensibility Dim moduloAntigo As VBComponent endereco = "c:\temp\codigoAntigo.xlsm" Workbooks.Open (endereco) 'Mod1 é o nome do módulo que quero excluir que já existe na panilha codigoAntigo.xlsm On Error Resume Next Set moduloAntigo = ActiveWorkbook.VBProject.VBComponents("Mod1") ActiveWorkbook.VBProject.VBComponents.Remove moduloAntigo Set moduloAntigo = Nothing DoEvents End Sub |
_____________________________________________________________________________
Segue abaixo o vídeo demonstrativo
Veja Também:
Inserindo um módulo em outra Planilha