none
limite RRS feed

  • Pergunta

  • 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

    terça-feira, 19 de agosto de 2014 00:39

Respostas