Cole o seguinte código em EstaPasta_de_Trabalho:

Private Sub Workbook_Terminate()
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Application.Quit
End Sub

Uma vez que já tem o codigo, utilize-o nos Eventos do WorkBook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

[]s

Este é o código que uso pra salvamento ( esta em Esta Pasta de Trabalho)

O que preciso é : se fechar pelo X ou ALT+F4 só aparecer : NÂO SALVAR e CANCELAR ; naquela "caixinha excel"

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim FileNameVal As String
    Dim strName As String

    If SaveAsUI Then
        
        FileNameVal = Application.GetSaveAsFilename(strName, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
        Cancel = True
        
        If FileNameVal = "Falso" Then 'User pressed cancel
            Exit Sub
        End If
        
        Application.EnableEvents = False
            
            If Right(ThisWorkbook.Name, 5) <> ".xlsm" Then
                ThisWorkbook.SaveAs filename:=FileNameVal, FileFormat:=xlOpenXMLWorkbookMacroEnabled
            
            Else
                ThisWorkbook.SaveAs filename:=FileNameVal, FileFormat:=xlOpenXMLWorkbookMacroEnabled
            End If
            
        Application.EnableEvents = True
        
    End If

End Sub

ACHO QUE COMPLIQUEI.
O código é para saber o que uso quando clico em salvar(disquete).

o que preciso é informar ao usuario que ele nao pode salvar ao sair, dando a ele a oportunidade de cancelar o comando, permanecendo com a plan aberta ou sair sem salvar.

Nesse caso, experimente colocar este código em Estapasta_de_Trabalho:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim resposta As Long

resposta = MsgBox("você não pode salvar ao sair. Deseja cancelar e salvar?", vbYesNo)

If resposta = 7 Then '7 = não
    Workbook.Saved = True
    Application.DisplayAlerts = False
    Exit Sub
Else
    Cancel = True
    Exit Sub
End If

End Sub

Abs

muitissimo obrigado.
Foi perfeito ; muito obrigado mesmo.

Para fechar preciso de ajuda nesse tópico.

viewtopic.php?f=10&t=12991