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

A definição de ofuscar é de embaralhar o código sem que o mesmo perca sua funcionalidade.

É uma técnica usada para dificultar a engenharia reserva de um software.

Answer 2

entendi mais mesmo se pegarmos tipi em ocutar codigo"ofuscar" o programa tbm pode dar problemas em nao reconhecer o comando

Answer 3

"se o cara alterar o relogia do computador ele entra facil."

É pouco provável que um usuário vá fazer isso para continuar usando um programa.

Não é muito simples você pegar o tempo "real" do computador.

Envolve uma série de funções APIs. Há a opção de se pegar o horário de um link da internet por VBA, mas se o usuário estiver offline, pode ser um problema.

Se o seu projeto é realmente importante e você realmente quer proteger seu capital intelectual, deveria utilizar técnicas mais confiáveis, como ofuscação de código, por exemplo.

Answer 4

cara , não deu não , vou ver aki se errei algo, mais mesmo  assim , se o cara alterar o relogia do computador ele entra facil.

 como bloquear esse tipo , ter um from para que eu   abro o programa;

 vc tem o link para me passar esse programa pra vc ver?

Answer 5

Tente:

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

    Application.DisplayAlerts = True

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

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

    Unload Me

    ThisWorkbook.Close False

  End If

End Sub