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




Google Talk: bernardess@gmail.com
Skype: inanyplace
MSN:
bernardess@gmail.com

Nenhum comentário:

Postar um comentário

diHITT - Notícias