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
