boqueia de "X" noo excel

Question

meus amigos boa tarde.

 preciso  dessa extrema ajuda.

 fiz um programa no excel, que ele tem um comando  de fechar na data prevista ( programa demostrativo), quando ele fechar ele vai abrir a janela como o "x"(fechar), eu preciso bloquear esse "X", PORQUE SE ALGUEM SO CLICAR NELE VAI MEXER NESSE PROGRAMA SEM PROBLEMA.

 PRECISO BLOQUEAR ESSE "x" MAIS TBM PRECISO ABRIR O PROGRAMA DE VOLTA .

VEJA O COMANDO DE FECHAMENTO DATADO

Private Sub CommandButton1_Click()

Sheets("localiza med").Select

MsgBox " SEJA BEM VINDO ", vbDefaultButton3, "                 SCA          "

If Time() >= #6:00:00 AM# And Time() < #12:00:00 PM# Then

Call MsgBox("Bom Dia! Bom trabalho Hoje é " & Date, vbExclamation, "AMPLA")

Else

If Time() >= #12:00:00 PM# And Time() <= #6:00:00 PM# Then

Call MsgBox("Boa Tarde! Bom trabalho Hoje é " & Date, vbExclamation, "AMPLA")

Else

Call MsgBox("Boa Noite!Bom trabalho Hoje é " & Date, vbExclamation, "AMPLA")

End If

End If

If Date > #5/30/2014# Then

MsgBox "Seu tempo demostrativo encerrou.Entre em contato  com o desenvolverdor", vbCritical, "GpcSystem"

MsgBox "(22) 99926006", vbInformation, " GpcSyetem"

Application.DisplayAlerts = True

Application.Quit

End If

Answer 1

filipe desde ja agradeço sua ajuda.

Veja bem, eu coloquei um comando de validação( programa demastrativo) e qua do ele fecha abre uma janela avisando que o tempo experou. E essa janela se alguem fecha com "X

" rle foca mexendo normal o programa

Answer 2

Não compreendi sua dúvida. Poderia explicar melhor?

Answer 3

E quando encerrar  a validaçao da data é fechar. Como eu abrirei este programa?

Answer 4

Troque o Application.Quit por:

ThisWorkbook.Close False

Answer 5

Olá, GilliardPacheco, tudo bem?     

Obrigado por entrar em contato com a Comunidade Microsoft.

Referente a sua dificuldade com essa função no Excel eu aconselho que poste a sua dúvida no link abaixo que vai direcioná-lo ao MSDN e TECHNET que são fóruns especialmente destinados para desenvolvedores e profissionais em TI. 

 **:: MSDN ::** 

 **:: TECHNET ::** 

Se a resposta ajudou de alguma forma, por favor, marque como resposta, caso a sua dúvida não tenha sido solucionada, por favor, poste novamente.    

Espero ter ajudado, até mais!