Entrar Ainda não tem acesso?
Solucionado (ver solução)
Solucionado
(ver solução)
1
resposta

Erro de sintaxe

Referente ao curso VBA: Automatizando tarefas no Excel, no capítulo Estruturas condicionais e atividade Executando uma macro automaticamente

por Tatiani da Silva
| 68.3k xp | 15 posts

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

1 resposta
solução!
por Jeferson Stenio
| 80.5k xp | 17 posts
Analista de Business Intelligence

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