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

 

 

Comentários
Fabio Vianna
Siga-Me

Fabio Vianna

Modela planilhas deste 1994 e ministra treinamentos desde 1997.
Especialista em Modelagem Profissional de Planilhas, incluindo Dashboards no Excel.
Fabio Vianna
Siga-Me

Últimos posts por Fabio Vianna (exibir todos)

Optimization WordPress Plugins & Solutions by W3 EDGE