Invariavelmente vez ou outra decidirá proteger suas planilhas contra o uso inapropriado por
terceiros.
Alguns limitam o uso da planilha por algum tempo, não permitindo que a mesma seja aberta após um período. Outro optam radicalmente pela deleção da planilha inteira.
Como sempre pensamos...Como fazê-lo?
terceiros.
Alguns limitam o uso da planilha por algum tempo, não permitindo que a mesma seja aberta após um período. Outro optam radicalmente pela deleção da planilha inteira.
Como sempre pensamos...Como fazê-lo?
Private Sub Workbook_Open()
Dim nMess1 as StringDim nMess2 as String
Let ExpDt = #31/07/2009#Let nMess1 = "Arquivo expirado. Digite a senha para poder acessá-lo"Let nMess2 = "Acesso Negado!"
If Date > DataExpira Then
Let Senha = Application.InputBox(nMess1, "Expirado")
If Senha <> 123 Then
MsgBox Prompt:=nMess2, Button:=vbOKOnly + vbCritical
ThisWorkbook.Close SaveChanges:=False
End If
End If
End Sub
A opção adicional é substituir a linha:
ThisWorkbook.Close SaveChanges:=False
Para deleção completa: ThisWorkbook.Saved = True
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
Application.Quit
Referências:
Tags: VBA, Excel, protect
Nenhum comentário:
Postar um comentário