Instrução End

Termina um procedimento ou bloqueio.

Sintaxe

End
End Function
End If
End Property
End Select
End Sub
End Type
End With

A sintaxe da instrução End possui esses formulários:

Declaração	Descrição
End	Encerra a execução imediatamente. Nunca é necessário por si só, mas pode ser colocado em qualquer lugar em um procedimento para encerrar a execução do código, fechar arquivos abertos com a instrução Open e limpar variáveis.
End Function	Necessário para encerrar uma instrução Function.
End If	Necessário para encerrar uma instrução If…Then…Else do bloco.
End Property	Necessário para encerrar um procedimento Property Let, Property Get, ou Property Set.
End Select	Necessário para encerrar uma instrução Select Case.
End Sub	Necessário para encerrar uma instrução Sub.
End Type	Necessário para encerrar uma definição de tipo definida pelo usuário (instrução Type ).
End With	Necessário para encerrar uma instrução With.

Comentários

Quando executada, a instrução End redefine todas as variáveis de nível de módulo e todas as variáveis locais estáticas em todos os módulos. Para preservar o valor dessas variáveis, use a instrução Stop. Em seguida, você pode retomar a execução preservando o valor dessas variáveis.

Observação

A instrução End interrompe a execução do código abruptamente, sem invocar o evento Unload, QueryUnload ou Terminate ou qualquer outro código do Visual Basic. O código colocado nos eventos Unload, QueryUnload e Terminate de formulários e módulos de classe não é executado. Objetos criados a partir de módulos de classe são destruídos, arquivos abertos usando a instrução Open são fechados e a memória usada pelo programa é liberada. As referências de objeto mantidas por outros programas são invalidadas.

A instrução End fornece uma maneira de forçar a interrupção do seu programa. Para o encerramento normal de um programa do Visual Basic, você deve descarregar todos os formulários. Seu programa é fechado assim que não há outros programas contendo referências a objetos criados a partir de seus módulos de classe pública e nenhum código em execução.

Exemplo

Este exemplo usa a instrução End para encerrar a execução de código se o usuário inserir uma senha inválida.

Sub Form_Load 
  Dim Password, Pword 
  PassWord = "Swordfish" 
  Pword = InputBox("Type in your password") 
  If Pword <> PassWord Then 
    MsgBox "Sorry, incorrect password" 
    End
  End If
End Sub

Confira também

• Tipos de dados
• Instruções

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.