Acredito que você deseja sair da pasta de trabalho e não da planilha. Tem uma diferença nesses conceitos. Se for isso faça assim:
Substitua Application.Quit por ThisWorkbook.Application.Quit
Para não exibir a mensagem ao sair retire o trecho abaixo:
Public bye As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bye = False Then
Cancel = Not bye
MsgBox "Favor utilizar o botão ''Salvar e Sair'' da planilha.", vbCritical, "Atenção..."
End If
End Sub
Testei aqui e funcionou ok!
At
Postado : 05/09/2012 2:57 pm