Pular para o conteúdo

Planilha que se auto-destrói

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.

Essa mensagem se auto-destruirá em 5 segundos – Inspetor Bugiganga

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
   

Deixe um comentário ou uma dúvidaCancelar resposta

Sair da versão mobile