Sub AUTO_OPEN()
Dim usua As String
usua = InputBox("Qual seu nome?")
If usua = "Ana Paula de Moura" Then
MsgBox " Bem vinda!"
Else
If usua = "Pedro Toledo" Then
MsgBox "Bem vindo!"
Else
MsgBox "Usuario nao autorizado!"
Application.Quit
End If
End If
End Sub
