Ola amigos!
Montei a muito tempo atras uma macro que "mata" o arquivo caso a data de vencimento esteja expirado.
Para que isso aconteça, salvo o arquivo com a macro configurada, e todas as vezes que atualizo o arquivo, tenho que ir na macro e editar a data do próximo vencimento.
O que estou tentando fazer é que ao invés de eu ter que ir no código todas as vezes alterar essa data, o próprio código busca a data de vencimento que está na aba "MENU" na "C10", mas não faço ideia como posso chamar essa data para o código.
O trecho do código com a data é essa abaixo entre aspas "17/06/2022":
Dim dtexp As Date
'Data que deverá expirar
dtexp = ("17/06/2022")
If Date >= #1/11/2010# Then
If Date >= dtexp Then
ThisWorkbook.Saved = True
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close
End If
Alguém pode me dar uma força?
Postado : 01/10/2022 9:25 am