Já pensou algumas vezes passar sua planilha para um amigo, colega ou terceiros e não saber como estes irão usa-las, ou ainda pior se apropriarem de suas ideias? para isso coloco abaixo um código onde sua planilha irá expirar no momento que o usuário fechar a mesma.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim dtexp As Date
'Escolha a data que deverá expirar
dtexp = ("29/04/2011") 'inibir aqui'
If Date >= #1/11/2010# Then 'ativar esta'
If Date >= dtexp Then 'inibir aqui'
ThisWorkbook.Saved = True
'Se quiser enviar mensagem apenas retire a aspa simples da linha de baixo ou personalize
'MsgBox "Este arquivo está expirado, se auto-excluirá!"
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
End If
End If
End Sub
**Obs. não irá nem para lixeira
5 comentários:
Ok funciona mesmo é bem seguro porque não avisa nada antes.
Como eu uso esse código
tito.luz@hotmail.com
NÃO CONSEGUI RODAR O VBA. PODERIA ME AUXILIAR.
LEANDROSANT10@GMAIL.COM
Achei interessante. Mas como utilizo este código pra proteger minha planilha do excel?
santos_mont@hotmail.com
Obrigado.
Achei interessante.
Mas como utilizo este código pra proteger minha planilha do excel?
santos_mont@hotmail.com
Obrigado.
Postar um comentário