Em Esta Pasta de Trabalho
Cole este codigo
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With ThisWorkbook 'Altera as propriedades desta planilha
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName 'Mata a planilha em definitivo (nem pra lixeira vai!)
.Close False 'Fecha sem salvar
End With
End Sub
Qdo Fechar o arquivo ele sera excluido. Nem vai para a Lixeira entao muito cuidado.
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 02/05/2016 11:35 am