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