[Resolvido] Impedir fechar Excel pelo X do Excel - 2003 e 2007

Boa noite

Venho aqui pedir ajuda para o código VBA que quero introduzir no Excel 2003 e também para o Excel 2007.

Quero que não seja possivel fechar a planilha pelo X do Excel, mas sim que os usuários tenham que clicar no Botão de Sair criado para esse efeito.

Conforme está na imagem que se encontra anexada a este post, quero impedir que o X que está no Nº 1 e no Nº2

Que só seja possivel fechar a Planilha clicando no Botão Sair e Salvar

O Código VBA que tenho para impedir de fechar a planilha pelo X é este.

Private Sub Workbook_BeforeClose(cancel As Boolean)



cancel = True



MsgBox "Favor utilizar o botão ''Salvar e Sair'' da planilha.", vbCritical, "Atenção..."



End Sub

O código do botão Sair e Salvar é este:

Private Sub CommandButton1_Click()



Application.DisplayAlerts = False



   On Error Resume Next

   ActiveWorkbook.Save



   Application.Quit



Application.DisplayAlerts = True





End Sub

O que acontece é que eu ao clicar no Botão Sair e Salvar, a planilha também não fecha e recebo a mesma mensagem ( MsgBox ), que tenho para o X

O que estará a impedir que o código VBA não funcione direito??

Alguém me pode dar uma ajuda??

Obrigado desde já.

Cumps


----------------------------------------------------------------------------------------- Resolvido ------------------------------------------------------------------------------------------


Depois de algumas pesquisas, já consegui resolver o problema.

Sendo assim, partilho convosco.

Em, EstaPasta de trabalho, o código é este

Private Sub Workbook_BeforeClose(Cancel As Boolean)



Cancel = Not bye

If bye = False Then

MsgBox "Favor utilizar o botão ''Salvar e Sair'' da planilha.", vbCritical, "Atenção..."

Else

If bye = True Then

MsgBox "Fechando a Planilha"

End If

End If

End Sub

No Modulo, o código é este:

Public bye As Boolean

Sub Fechar()

bye = True

ThisWorkbook.Close

End Sub

Assunto resolvido

Uma boa noite

Cumps