Criar data para expirar arquivo excel

[Diego Dias Alano]

Olá equipe do Clube do Hardware,

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 preciso que me ajudem em como desabilitar este pedido de salvar caso não seja inserida a senha.

 

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

[Basole]

@Diego Dias Alano seja bem vindo ao forum.

Veja se dessa forma lhe atende:

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"
ThisWorkbook.Application.DisplayAlerts = False 'des. aviso de  alerta
ThisWorkbook.Application.Quit ' fecha a planilha automaticamente
End If 
MsgBox ("Seja bem-vindo às Ordens de Produção")
End Sub

 

 

[Diego Dias Alano]

Olá Basole, ainda não funcionou, pois ao iniciar o arquivo se digitar a senha, ok, ele abre normal.

Porém, simulando uma pessoa que não saiba a senha, coloco uma senha qualquer ele me dá o erro que segue em anexo, daí clico em fim e o arquivo pode ser usado normal.

 

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.

 

Obrigado.

[Basole]

Bom aqui pra mim esta funcionando sem errors.

 

Eu fiz uns ajustes no codigo, baixe o anexo.

 

data para expirar.zip

[Diego Dias Alano]

Show de bola, muito obrigado Basole, funcionou perfeitamente.