Planilha que se auto-destrói
Se o que te veio em mente foram os filmes de espião, ou quem sabe o Inspetor Bugiganga, bem… foi pensando neles que criei a planilha que se auto-destrói.
Funciona exatamente como você deve estar pensando, a pessoa abre o arquivo de Excel, normal como qualquer outro, mas ao executar alguma determinada ação a planilha se auto-destrói por completo, nem pra lixeira ela vai, some de vez do computador.
Esse tipo de planilha é bom para:
- Evitar que incheridos mexam onde não devem.
- Enviar planilhas de testes a clientes e quando o prazo de teste expira, a planilha se deleta.
- Enviar uma mensagem que se auto-destrói.
- Outra coisa qualquer que não me vem em mente agora….
Macro para auto destruição
A planilha funciona via código de macro (VBA) e para inserir este código em uma planilha, sgia os seguintes passo:
- Com a planilha aberta, pressione as teclas ALT + F11 par abrir o editor VBA.
- Na janela que se abrir, à esquerda, clique com o botão direito no área em branco, e selecione Inserir > Módulo. Conforme mostra a imagem abaixo.
- Selecione o módulo recém criado, e na parte direita da tela, onde estará tudo m branco, insira o código abaixo.
Sub AutoDestroir() MsgBox "Este arquivo irá se auto-destruir!" With ThisWorkbook .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName Application.Quit End With End Sub
Assim que ele for executado, o arquivo se auto-destruirá, mas não sem antes exibir a clássica mensagem:
“Este arquivo irá se auto-destruir!”
Para botar o código em ação o ideal é ter alguma ação do usuário, ou, melhor ainda, alguma outra macro que dará o gatilho para esta.
Deixo como sugestão o artigo Macro que roda automaticamente onde você pode encontrar alguns códigos que podem servir como gatilho para a auto-destruição.
Acompanhe o Função Excel
