Talvez você esteja na situação em que seu cliente lhe pede para fazer uma macro no excel que feche a planilha após um determinado período de tempo (data), ou seja, uma expiração de data na planilha.
Poderia chamar também de uma validade para abrir planilha, e com o artigo abaixo o usuário/cliente que tentar acessar a planilha após determinada data não conseguirá abrir a mesma.
Entretanto caso você esteja procurando um meio de fazer com que a planilha feche após ficar inativa por um período então veja este artigo Fechar Planilha de Forma Automática
Infelizmente não é possível fazer através de macro, mas para fazer implementar através de código vba é muito fácil. E para ajudar ainda mais segue duas opções:
______________________________________________
OPÇÃO 1 – Expiração de data a partir de algum botão “clicado”
-Ao executar um código através de um botão, basta abrir um módulo copiar a data de expiração vba abaixo e colar
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Sub Macro1() Dim exdate As Date 'data de expiração exdate = "14/09/2010" If Date > exdate Then varNum = Application.InputBox("A planilha expirou, informe o codigo", "Revalidação do prazo", "####") If varNum = 123456 Then Exit Sub End If MsgBox ("Você chegou no final do período de uso") ActiveWorkbook.Close End If MsgBox ("Você têm " & exdate - Date & " Dias restantes") End Sub |
———————————————————————-
OPÇÃO 2 – Contar tempo para fechar a planilha automático a partir do momento que abri-la
1 2 3 4 5 6 7 |
Private Sub Workbook_Open() 'copiar o codigo da opção aqui 'Dim exdate...... End Sub |
Para executar este código é necessário copiar o código abaixo e colar em sua planilha excel vba conforme imagem abaixo. Na verdade apesar da funcionalidade ser diferente o código é identico:
Caso esteja com dúvida sobre como implementar vba em suas planilhas, você pode:
ver através do meu ebook curso vba
Ver através do meu ebook curso vba
seguir os primeiros artigos para aprender vba
ver os artigos da categoria Primeiros passos
Sucesso e abraço a todos!