código para informar quantos dias ainda restam

2024 - VBA & Macros

Post Recente por klarc28 7 anos atrás

4 Posts

2 Usuários

0 Reactions

665 Visualizações

RSS

JNEXCEL

(@jnexcel)

Posts: 298

Reputable Member

Topic starter

Bom dia!

Prezados, por favor, será que alguém poderia me ajudar?

Eu tenho esse código abaixo:

Application.EnableCancelKey = xlDisabled

    Dim dt As Date

    'Escolha a data em a Pasta de Trabalho deverá expirar (ano, mês, dia)
     dt = DateSerial(2018, 2, 23)
     If Date >= dt Then
     MsgBox "Esta Pasta de Trabalho expirou! Favor contatar o administrador."
  ThisWorkbook.Close SaveChanges:=False
  End If

Tem como acrescentar mais um linha informado quantos dias ainda restam para usar a planilha?

Exemplo: quando estiver perto do dia 23/02/2018, vai aparecer uma mensagem para o usuário: EM 2 DIAS A PLANILHA AAAAA NÃO VAI MAS FUNCIONAR, PARA SOLICITAR MAIS DIAS ENTRAR EM CONTATO COM JNEXCEL.

Muito obrigado a todos pela atenção.

Postado : 21/02/2018 8:50 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

if date = dt -2 then

msgbox "faltam dois dias para expirar"

end if

Postado : 21/02/2018 9:56 am

JNEXCEL

(@jnexcel)

Posts: 298

Reputable Member

Topic starter

Para dar certo, posso fazer assim:

Application.EnableCancelKey = xlDisabled

    Dim dt As Date

    'Escolha a data em a Pasta de Trabalho deverá expirar (ano, mês, dia)
     dt = DateSerial(2018, 2, 25)
     If Date >= dt Then
     MsgBox "Esta Pasta de Trabalho expirou! Favor contatar o administrador."
  ThisWorkbook.Close SaveChanges:=False
  End If

If Date = dt - 2 Then

MsgBox "faltam dois dias para expirar"

End If

:?: