como colocar limite no excel , eu fiz esse codigo:
Private Sub CommandButton1_Click()
Sheets("MENU").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 > #1/4/2015# Then
MsgBox "Seu tempo demostrativo encerrou.Entre em contato com o desenvolverdor", vbCritical, "GpcSystem"
MsgBox "(22) 99926006", vbInformation, " GpcSyetem"
Application.DisplayAlerts = True
Application.Quit
mais nao adianta nada, td funciona , mais se quando aparece o janela de limite , se o cara fecha com o "X" da janela o cara mexe tranquilo...
como faz pra acabar mesmo quando o cara clicar no "X" so voltar pelo minha senha etc,... coisa assim
