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:

1. Com a planilha aberta, pressione as teclas ALT + F11 par abrir o editor VBA.
2. 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.
   
3. 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