VBA Excel - Protegendo planilha

Inline image 1

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?

Private Sub Workbook_Open()
Dim nMess1 as String
Dim 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

diHITT - Notícias