Boa tarde favari7

Seja bem-vindo ao fórum!

Movi teu tópico para VBA & Macros que é o assunto da tua dúvida, pois onde você havia postado não é permitido postar dúvidas, sendo exclusivo para a apresentação do novos usuários do fórum.

Como você é novato p ara facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:

viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador

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.

Galera!

Muito obrigado pela ajuda, consegui conforme nosso amigo MPrudencio postou!
Me desculpem tbm por postar em lugar errado! Foi minha primeira vez!

Abraços!