Já tentou deletar o seu próprio arquivo seja .Doc, .XLS, .PPT ou mesmo na versão 2007 ou 2010 ?
E para que isso seria útil, perguntam os mais desavisados...Bem, poderíamos utilizar em uma operação de automação ou para proteger sua planilha ou documento de serem abertos em certos dias ou até determinanda data limite.
Imagine-se informando...Este arquivo se autodestruirá em 2 dias (E se tiver um pouco de paciência em alguns segundos).
A função é simples de tudo, mas muito útil:
Aproveitem!
Public Sub KillProperly(Killfile As String)
If Len(Dir$(Killfile)) > 0 Then
SetAttr KillFile, vbNormal
Kill KillFile
End If
End Sub
André Luiz Bernardes
| bernardess @ gmail . com | InAnyPlace (Skype) | Blog Office VBA | Blog Excel | Blog Access |
If Len(Dir$(Killfile)) > 0 Then
SetAttr KillFile, vbNormal
Kill KillFile
End If
End Sub
André Luiz Bernardes
| bernardess @ gmail . com | InAnyPlace (Skype) | Blog Office VBA | Blog Excel | Blog Access |