Executando um Erro Fatal no Excel

Proteja suas planilhas. Caso não seja digitada a senha correta, o seu arquivo gera um erro fatal, impedindo que outras pessoas tenham acesso.

Abra o editor do VBA insira um módulo e copie este código

**Obs. voce pode personalizar este código**



Private Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, ByVal lpMessageText As String)
Private Declare Sub FatalExit Lib "kernel32" (ByVal code As Long)

Sub Erro_Fatal_Personalizado()
senha = "acessar"
If Application.InputBox("Digite a senha autorizada", "Dicas de Excel e Vba", "acessar") = senha Then
Else
FatalAppExit 0, "ACESSO NÃO PERMITIDO, DESCULPE!"
End If
End Sub


Insira esse código em "Esta Pasta de Trabalho". Assim quando abrir a planilha será pedida a senha.

Private Sub Workbook_Open()
Call Erro_Fatal_Personalizado
End Sub