Solucionado
Boa tarde
colei o código indicado na resposta do instrutor e deu erro de sintaxe, abaixo esta o código, podem me ajudar ?
Sub Auto_Open() Dim nome As String nome = Inputbox(“Informe o nome do usuário”) If nome=“Ana Paula de Moura” or nome=“Pedro Toledo” then Msgbox “Bem vindo ao Sistema” Else Msgbox “Acesso Negado”, vbCritical Application.Quit End If End Sub
aguardo obrigado
Boa noite!
Dei uma olhada e vi que o erro era no trecho que fecha a planilha. Troquei por "ThisWorkbook.Application.Quit" e funcionou normalmente. Segue exemplo do código para testar.
Sub Auto_Open()
Dim nome As String
nome = InputBox("Informe o nome do usuário")
If nome = "Ana Paula de Moura" Or nome = "Pedro Toledo" Then
MsgBox "Bem vindo ao Sistema"
Else
MsgBox "Acesso Negado"
ThisWorkbook.Application.Quit
End If
End Sub