✔ Programação GLOBAL®: VBA Excel

VBA Excel - Protegendo planilha.

Hello folks...

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

André Luiz Bernardes
http://al-bernardes.sites.uol.com.br/