fbpx

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

Wellerson 

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:

11

 

 

Siga-Me

Nossas Redes Sociais

Facebook
Linkedin
Instagram
Youtube