Esse código aparentemente não tem uma grande importância, mas se souber usá-lo, poderá torná-lo parte da sua coletânea de artifícios para proteger seus projetos e aplicações.
Antes de continuar, um pequeno parênteses, deixe seus comentários para este post.
Ao apagar um módulo, todas as funcionalidade da planilha dependentes desse módulo ficam automaticamente inativas. Que dica hein!
Segue o código: DelVBComponent ActiveWorkbook, "mdl_MainFunctions"
Sub DelVBComponent (ByVal wb As Workbook, ByVal CompName As String)' deletes the vbcomponent named CompName from wbLet Application.DisplayAlerts = FalseOn Error Resume Next ' ignores any errorswb.VBProject.VBComponents.Remove wb.VBProject.VBComponents (CompName)' delete the componentOn Error GoTo 0Let Application.DisplayAlerts = TrueEnd Sub
Nenhum comentário:
Postar um comentário