VBA Excel - Protegendo planilha

Termo de Responsabilidade 

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