VBA:Fechando sua planilha conforme critérios de datas-Parte 2

Vamos complementar nossa dica de ontem com uma sugestão do internauta.Veja:

Wellerson — 07/01/2010 @ 08:38 am

Muito legal. Seria interessante se quando a data atual fosse maior que a data de bloqueio exibisse uma mensagem, ex.: “Data da planilha expirou” e clicando em “OK” a planilha fecha.

Para isto basta substituir o código no módulo da dica anterior para este:

Sub protege()
If Plan2.Cells(1, 2) >= Plan2.Cells(2, 2) Then
MsgBox “Data da planilha expirou!”, vbCritical
Application.ActiveWorkbook.Save
Application.Workbooks.Close
Else
MsgBox “Bem vindo!,voce poderá usar a planilha”
End If
End Sub
Onde foi apenas acrescentado uma linha com a mensagem em formato critical:

MsgBox “Data da planilha expirou!”, vbCritical

Veja o resultado:

Para ver a dica de ontem clique aqui

Boa noite! =)

Sidney Moraes

caso você tenha alguma dúvida ou sugestão envie para nós:

contato@dicasdeexcel.com.br