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.
bernardess@gmail.com