Data para expirar arquivo excel com senha para rehabilitar

[diegodalanoParticipante]

Olá equipe Exceler,

Estou com um pequeno problema para proteger um arquivo em excel que preciso por data de validade, pois preciso atualiza-lo a um certo período, então quando fecha o prazo preciso atualiza-lo e colocar novo período.

Porém se alguém tenda por uma senha e da erro, ele pede para salvar o arquivo antes de fechar… e ao clicar em cancelar, o arquivo não fecha e pode ser utilizado como se não tivesse senha.

Então o que preciso é se colocar a senha errada o arquivo feche direto sem dar nenhum aviso, e do contrario, caso seja colocada a senha correta ele funcione normal.

 

Uso o seguinte comando:

 

Private Sub Workbook_Open()
Dim exdate As Date
‘data de expiração
exdate = “09/08/2016”
If Date > exdate Then
varNum = Application.InputBox(“A planilha expirou, informe o codigo”, “Revalidação do prazo”, “####”)
If varNum = 1234 Then
Exit Sub
End If
MsgBox (“Você chegou no final do período de uso”)
ActiveWorkbook.Protect “1234”

End If
MsgBox (“Seja bem-vindo às Ordens de Produção”)

End Sub

 

Obrigado.

Diego

[jorgerodAdministrador]

Olá Diego,

Podes utilizar o denominado Case Select:

exemplo:
Select Case varnum
Case Is False
‘ não faz nada
Case Is = 1234
‘o que pretendes que faça
Case Else
MsgBox “Password incorrecta”

Call CloseBook

End Select

 

Sub CloseBook()
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

 

Experimenta, adaptando ao teu caso.

 

Fica bem.

[Autor]

Artigos