Anexo

klarc28 , é desse jeito mesmo ,
Porem como não entendo quase nd de vba ainda , fiquei meio confuso .Tem como fazer esse codigo em um modulo so pra atribuir a macro para sair ^??
Não consegui adaptar na planilha ...
Mais ficou 100% .

Vlew .
Obrigado.

Sub sairDoExcel()

Plan1.Range("aa1").Value = 1
ThisWorkbook.Save
Application.Quit

End Sub

Boa noite !
Karl , continua a mesma coisa . Atribui a macro e nd.
mas de boa

Além do código sairDoExcel, é necessário o código a seguir:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Plan1.Range("aa1").Value <> 1 Then
   MsgBox "NEGADO ! SAIA NO MENU INICIAR ."
    Cancel = True
   End If
   
    
End Sub

Private Sub Workbook_Open()
Plan1.Range("aa1").Value = 0
End Sub

klarc28
Muito obrigado por tentar ajudar mano , valew .

Mais não consegui fazer como vc descreveu.

Consegui fazer de outra forma :

Na pasta de trabalho coloquei :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not bye
If Not bye Then MsgBox "NEGADO ! SAIA NO MENU INICIAR ."
End Sub

Depois Criei uma variável em um módulo :

Public bye As Boolean

e depois criei a macro para sair :

Option Explicit
 Sub sair()
Application.EnableEvents = False
   ActiveWorkbook.Save
   Application.EnableEvents = True
   bye = True
   ThisWorkbook.Close
 End Sub 

Mais muito obrigado .
vlew ...