Notifications
Clear all

Proteger planilha com data de expiração

2 Posts
2 Usuários
0 Reactions
954 Visualizações
(@vaggnersf)
Posts: 34
Eminent Member
Topic starter
 

Olá a todos, pessoal preciso da ajuda do fórum.

Tenho um arquivo em Excel e preciso protegê-lo com um código em vba assim que a validade dele expirar.

Esse arquivo quero que ele trabalhe ate um certo tempo, depois disso ele solicite uma nova senha para uso.

Caso a pessoa não adicione essa nova senha não poderá usar mais este arquivo.

Agradeço se puderem me ajudar.

 
Postado : 12/09/2013 8:13 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Por favor use a Pesquisa do fórum!!
viewtopic.php?f=29&t=4752
viewtopic.php?f=10&t=6288
viewtopic.php?f=10&t=4579
viewtopic.php?f=7&t=8794

Talvez..

Private Sub Workbook_Open() 
    Dim expirydate As Date 
    expirydayte = Sheet1.Range("a1").Value 
    If Date > expirydate Then ThisWorkbook.Close SaveChanges:=False 
     
End Sub
Private Sub Workbook_Open()
     
    MsgBox "Vai expirar em 28/06/2013"
     
    Dim expirydate As Date
    expirydayte = Sheet1.Range("a1").Value
    If Date > expirydate Then ThisWorkbook.Close SaveChanges:=False
     
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/09/2013 8:48 am