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

outra pergunta, qual  o  instalador ou  como , que eu  possa instalar o  programa em maquina permitida , 

ex: fiz comando  da maquina x , se alguem copia-lo a instalação em outra maquina sera negada

estou  fazendo  um instalador pelo  install creator

 coloquei  no programa  o  seguinte comando

Sub capturaNomeDaMaquina()

Dim sHostName, hostAutorizado As String

sHostName = Environ$("computername")

hostAutorizado = "NOME_DO_COMPUTADOR"

'Este nome pode ser visualizado clicando em meu computador com o bo

If (sHostName = hostAutorizado) Then

    MsgBox "Iniciando Instalação...", vbInformation, "Iniciando Instalação."

    'Faz o que tiver que fazer exemplo: fecha o instalador, cancela, etc...

Else

    MsgBox "Instalação não autorizada!", vbCritical, "Instalação não autorizada."

    'Inicia o procedimento de instalação aqui dentro

End If

End Sub

Answer 2

Meu  amigo, vom dia, fiz um programa de acess 2007 , e fiz o  instalador dele  com "install creator"

quando eu  instalo  ele no  pc, ele so vem como  modo de leitura. pq isso  , noa tem como  tirar  isso  ?

Answer 3

Meu nobre muito  boa noite.

agora  eu  fiz um programa Acess 2007 que se junta com os Excel  que esta no  teu  mural, o  programa do  Acess é o  principal. já fiz o instalador com todos em um só  clique, mas preciso  de mais uma coisa.

Como o  qual o  comando  VBA que posso instalar com exclusividade? EX:  , ele só  pode se  instalado suponhamos, no  pc do meu  irmão  e de mais minguem pq se alguém pega  a cópia do  programa e instalar em outro  pc ,  o  comando  não deixa.

poderá me ajudar  nesse sentido?

Answer 4

sim.......................