Boa tarde!!

Tente...

Application.DisplayAlerts = False
    ActiveWorkbook.Close False 'caso contrario altere para True
    Application.DIsplayAlerts = True

Cara, só uma dúvida: Eu devo inserir esse código no Private Sub Workbook_Open()?
Pq se for lá, não funfou...
Teitei ele com ActiveWorkbook.close em True e em False e acontece sempre o mesmo:
Eu insiro esse código e fecho a planilha e qunado vou abrir novamente o arquivo abre e logo na sequência fecha sozinho.

Teria alguma outra solução?

Boanoite!!

Abra o Editor VBA, Alt+F11 e dentro de EstaPasta_de_trabalho, use o código baixo

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Application.DisplayAlerts = True
    ThisWorkbook.Close Saved = True
End Sub

Não testado!!

Att

Então Alexandre, testei ela aqui e quase deu certo!
Só que a idéia é que o arquivo não seja salvo, não importa o quanto ele seja alterado.
E com esse código ele fecha e não pergunta nada (até ai beleza)
Só que ele acaba salvando as alterações...

Tem alguma sugestão?

Boa noite!!

Tente..

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    Application.Quit 
    Application.DisplayAlerts = True
End Sub

Cara, na mosca!
Só tive que alterar um pequeno detalhe:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.Quit
Application.DisplayAlerts = False
End Sub

Desse jeito funfou beleza!
Obrigado Alexandre, pode ter certeza que a ajuda de vcs está sendo ótima!

Um forte abraço!