VBA Excel - Apagando um módulo utilizando o VBA - Delete a module using VBA

Dificilmente as senhas das planilhas hoje não são quebradas com grande facilidade. Poucos de nós sabemos resguardar a segurança das nossas planilhas.

Às vezes quando disponibilizamos alguma aplicação à distância para alguém, geralmente datamos a utilização desta para testes, apagando o seus módulos a partir de certo número de utilizações, ou mesmo após certa data.

  • Que técnica posso utilizar para apagar o módulo da minha aplicação utilizando o VBA?

Sub DelVBComponent (ByVal wb As Workbook, ByVal CompName As String)

    Let Application.DisplayAlerts = False

    

    On Error Resume Next ' ignora qualquer erro

    

    wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents(CompName) 

    

    ' Deleta o componente

    On Error GoTo 0

    

    Let Application.DisplayAlerts = True

End Sub


Exemplo:

DelVBComponent ActiveWorkbook, "tstBernardes"


Tags: Bernardes, MS, Microsoft, Office, Excel, copy, module, code, activeWorkbook, workbook, create, realtime, 


André Luiz Bernardes
A&A® - Work smart, not hard in any place.
Skype: inanyplace