Etiquetas: expirar senha, validade, vba excel
- Este tópico contém 1 resposta, 2 utilizadores e foi actualizado pela última vez Há 6 years por
jorgerod.
-
AutorArtigos
-
-
12 de Agosto de 2016 às 16:32 #4943
diegodalano
ParticipanteOlá 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
-
12 de Agosto de 2016 às 17:45 #4944
jorgerod
AdministradorOlá 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 SubExperimenta, adaptando ao teu caso.
Fica bem.
-
-
AutorArtigos
- Tem de iniciar sessão para responder a este tópico.