# 25 - Course macros and Excel VBA - Error Handling (On Error)

[@rafaekamorim9748]

Massa!

[@Deivid8525]

grato pela aula!

[@AlessandroTrovato]

Eu é que agradeço pela sua audiência Deivid!

[@ursulavelilla9082]

Ajudou muiiito, super bem explicado

[@AlessandroTrovato]

Fico feliz que tenha gostado Ursula! Espero que encontre ainda muito material de estudos por aqui. Já são mais de 1.130 vídeos publicados, de Excel são mais de 560! Bons estudos!

[@sofiiaa.y]

Muito bem explicado :)

[@ycaroovoador7744]

👍👍👍👍👍👍

[@AlessandroTrovato]

Bom ver sua mensagem novamente Ycaro! Bons estudos!

[@ycaroovoador7744]

@@AlessandroTrovato Valeu mestre, vou mandar ver !🤘

[@hugocampelo7]

Olá Alessandro! Primeiramente obrigado por disponibilizar este conteúdo, está sendo de grande aprendizado! Nesta rotina, inseri o direcionamento "Ponto_Saida:" para linha anterior à solicitação da senha para desbloqueio. Assim, inseri também um "Do While LOOP" no código de erro assim como uma variável para contar "Count". Desta forma, possibilito que o usuário tenha três oportunidades de entrar com a senha correta antes de finalizar a execução.

[@ViniciusSilva-7]

Se puder colocar aqui nos comentários como fez o passo a passo. Estou tentando fazer a mesma coisa. Mas ainda não cheguei no mesmo resultado que você. Abraço.

[@rafaelcalocci8196]

Aula concluída

[@etiennegilson8835]

Meu Amigo, você nem imagina o quanto foi de valia essas vídeo aulas. Tenho um conhecimento razoável em VBA, mas eu desenvolvia os meus programas baixando vídeos aleatoriamente no you tube e transcrevia os textos de comando e aplicava sem entender o real significado desses comandos. Só sabia que dava certo. Agora não, tenho plena consciência do que estou fazendo ao realizar a programação. Resumindo, sei onde estou pisando. Hoje desenvolvo programas em VBA das mais diversas: Controle de Estoque, Folha de Pagamento, Controle de Horas-Extras, Fluxo de Caixa, dentre outras mais complexas. Todas elas personalizadas, de acordo com a necessidade do usuário. Muito obrigado.

[@AlessandroTrovato]

Olá ETIENNE GILSON ! Fico extremamente feliz em receber feedbacks como este ! É gratificante saber que o trabalho está sendo bem desenvolvido e que pessoas como você estão conseguindo uma evolução profissional graças as aulas ! Espero que as aulas futuras também acabem contribuindo para o seu crescimento profissional e pessoal! Sucesso amigo...

[@RogerioNevesrmah]

Parabéns, aprendi muito com você

[@AlessandroTrovato]

Fico muito grato e feliz com sua mensagem Rogério! Obrigado pela confiança nos trabalhos!

[@danielteixeira4816]

Obrigado Mestre Trovato. tive que vim aqui num meio antigo kkk, pois estou com um probleminha e o on error resume next não estava adiantando, mas agora com o goto resolveu, pois adicionei outro tratamento e coloquei o Exit sub.

[@allanribeiro166]

Boa noite Alessando. Uma coisa legal a se fazer é depois de um conjunto de aulas propor um exercicio que envolvesse todo o assunto ate tal ponto. Obrigado pelo conteúdo disponibilizado!

[@paulocesargomesalves3702]

Parabéns ótima aula ...

[@AlessandroTrovato]

Grato pela mensagem e feedback Paulo! Se ainda não é um inscrito(a), convido você a se inscrever em meu canal de vídeos! Espero que os mais de 430 vídeos tutorias que possuo atualmente (só de Excel são mais de 180!) possam lhe ajudar. Bons estudos e sucesso!

[@paulotarso6271]

Mais uma vez salvo por esta brilhante aula e treinamento que não canso de ver. Valeu demais Professor Trovato.

[@andersonlibarino5093]

Esse é o melhor canal de Excel do KZbin !!!!!

[@AlessandroTrovato]

Fico muito feliz que goste dos trabalhos Anderson! Grande abraço e muito sucesso em sua jornada!

[@jamesc7953]

Eu tinha essa dúvida e foi sanada. Obrigado

[@AlessandroTrovato]

Muito obrigado pelo feedback James! Uma ótima semana!

[@marceloeidi1]

Show de Bola Alessandro!

[@AlessandroTrovato]

Grato mais uma vez pelas mensagem Marcelo! Bons estudos!

[@neorobsondeazevedo5559]

Excelente,que demais mesmo.

[@Leozinho222333]

Sensacional. Muito Bom mesmo !!!

[@AlessandroTrovato]

Grato pelo feedback Leonardo! Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 500 vídeos tutorias que possuo atualmente (só de Excel são mais de 250!) possam lhe ajudar. Bons estudos e sucesso!

[@F4lipeC4rdoso]

Olá Alessandro! Obrigado pela aula. Notei que nessa pasta de trabalho utilizada na aula de hoje o usuário, mesmo quando a tabela já esta bloqueada, ainda pode inserir novas senhas para bloquear a tabela, apesar dessa senha inserida não ser capaz de desbloquear a tabela, gostaria de saber como fazer com que o usuário já seja avisado de que a tabela já esta bloqueada e que ele pode apenas desbloquear a tabela.

[@AlessandroTrovato]

Olá Felipe Cardoso ! Para checar se uma planilha está ou não protegida, você pode utilizar a instrução if ActiveSheet.ProtectContents = true then ... (executa este código se estiver bloqueada) else ... (executa este código se estiver desbloqueada) endif Saudações!

[@F4lipeC4rdoso]

Alessandro Trovato Consegui! Obrigado!

[@joseph032531]

Muito bom!

[@AlessandroTrovato]

Grato mais uma vez José! Bons estudos!

[@josesilvasobrinho8538]

Parabéns! Aula interessante e ótima didática.

[@diogobueno176]

Rapaz vc merece cada like kkk Muito obrigado por esses videos!

[@AlessandroTrovato]

Fico muito feliz que esteja gostando Diogo! Grande abraço e bons estudos!

[@ContatoLFMathias]

Sim com certeza, o problema é que uso o excel 2010, e parece que nessa versão não temos como modificar o atributo da inputbox, correto?

[@AlessandroTrovato]

Lúcio Mathias Olá Lúcio. A textBox que falei será utilizada nos formulários. Ai ficaria mais fácil. A InputBox realmente não tem essa possibilidade, a não ser com codificações como apresentado no artigo do Tomas Vasques...

[@ContatoLFMathias]

Ok, obrigado

[@flaeski]

Muito bom Trovato! Comecei essa semana a mexer com VBA e já usei esse recurso na planilha aqui da empresa. Show!

[@AlessandroTrovato]

Sensacional Flávio! Fico muito feliz com resultados positivos! Bons estudos e um ótimo final de semana!

[@fr5909]

Alessandro, boa tarde. Primeiramente quero dizer que estou gostando muito de suas aulas. Realmente você tem o dom de ensinar. Tenho uma dúvida, se clico em "cancelar" o comando é ativado como se eu tivesse clicado em "OK". Tem como "consertar" isso? Abraços e parabéns pelo canal.

[@andersonjanuario9011]

Alessandro Trovato Você é o cara, aula super show... A cada dia me apaixono mais pelo Excel....

[@AlessandroTrovato]

Olá Anderson! O Excel é uma ferramenta apaixonante. Seja bem vindo ao time! Grande abraço e desejo a você muito sucesso e bons estudos!

[@tadaokano867]

Obrigado por dispor de mais uma excelente videoaula Alessandro.So uma coisa ficou na duvida no finalzinho onde voce colocou o On Error Resume Next, eu nao entendi a finalidade desse codigo, sera que poderia deletar?.Desde ja Obrigado.

[@barryo]

Thank-you for the video. You can also track the exact line number of an error by using the Erl function (if you add VBA line numbers).

[@AlessandroTrovato]

Thanks Barry for your suggestion! There are different ways to do the verification and as this is one of the initial classes I worked with a very basic concept!

[@gustavomorais4611]

Grato pela aula professor! Não entendi muito bem esse ponto de saída.. esse Set W=Nothing foi só um exemplo do que se pode colocar no ponto de saída?

[@AlessandroTrovato]

Olá Gustavo! Quando você instancia um objeto no VBA o comando set _nomeobjeto_ = nothing elimina ele da memória, evitando assim conflitos caso fique na memória. Se ainda não é um inscrito(a), convido você a se inscrever em meu canal de vídeos! Espero que os mais de 420 vídeos tutorias que possuo atualmente (só de Excel são mais de 170!) possam lhe ajudar. Bons estudos e sucesso!

[@gustavomorais4611]

ok, obrigado!

[@PedroHenrique-id4bk]

So eu que achei essa a mais "complicada" ate agora? Depois terei que voltar nessa aula!

[@leonardo_gomes]

Alessandro tudo bem? Você tem algum vídeo explicando o método FindNext? Desde já agradeço.

[@AlessandroTrovato]

Olá Leonardo! Infelizmente não tenho! Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos! Espero que os mais de 530 vídeos tutorias que possuo atualmente (só de Excel são mais de 300!) possam lhe ajudar. Bons estudos e sucesso!

[@leonardo_gomes]

Alessandro Trovato obrigado meu amigo.

[@Marcelo.deLima]

#maisum

[@felipepiopenna2439]

Mestre Trovato, por favor uma ajuda. Estou utilizando o método - On Error Goto tratardata O código executa minha instrução que no caso é: tratardata: MsgBox ("Data Inválida") Target.Value = Null Exit Sub Porém, logo depois o VBA é interrompido, volta a funcionar apenas quando eu fecho e abro a planilha. Estou fazendo algum errado? Não gostaria que VBA fosse interrompido. Quando utilizo o método - On Error Resumo Next - funciona. Ou seja, o VBA não é interrompido.

[@amisadaimarson4616]

Boa noite Professor. Ótimo vídeo. Porém estou precisando pular o erro abaixo e não estou conseguindo. "Erro em tempo de execução '1004' O arquivo foi bloqueado por nomedousuario." Tente novamente depois. Isso ocorre por que estou usando planilha compartilhada. Eu consigo fazer com que não apareça a janela desse erro e apareça uma msg"Cadastrar novamente" E depois do OK do usuário ele abre automaticamente o Useform? Desde já fico agradecido da Atenção.

[@ContatoLFMathias]

Olá Alessandro muito obrigado pelas dicas e método de ensino. Mas,temos como configurar a inputbox com PasswordChar?

[@AlessandroTrovato]

Olá Lúcio Mathias. Na versão do Excel 2013 é possível sim. Desde que você programe a propriedade PASSWORDCHAR para um asterísco, por exemplo...

[@michelcesar85]

Mais uma ótima dica Alessandro! Não conhecia esse redirecionamento, as videos aulas estão cada vez melhores, com certeza o melhor projeto em português sobre excel!

[@AlessandroTrovato]

Obrigado Platini Cesar pelo seu feedback! Fico muito feliz em saber que mesmo sabendo ainda continua aprendendo (assim como eu!). Um abraço e bons estudos...

o site tá fora do ar, que triste...

[@AlessandroTrovato]

O Site está no ar Naim. Acesse: www.alessandrotrovato.com.br. Estou gradativamente desativando o site do SigaONerd

Obrigado

[@Tadeucichinelli1940]

Sr. Alessandro quero saber se existe como tirar o erro da função corresp + índice pois fiz uma planilha que o cliente digita o código do produto e a mesma por intermédio da respectiva função busca os dados do produto. Porém a tabela de produtos esta oculta ... OK na planilha 2 tem um formato de orçamento onde o cliente digita o código e a quantidade só que quando a mesma na linha código esta vazia apresenta #N/D no procv eu sei fazer mas nesta função Índice não achei solução ... existe como anular isso???? Abraços

[@edersonlcs]

Olá Alessandro, blz! Quero agradecer por ter disponibilizado esse conteúdo, você salvou minha vida rsrs. Na empresa onde trabalho estou sendo diferenciado pela sua ajuda. Ótimo conteúdo e muito obrigado.

[@AlessandroTrovato]

Olá +Ederson santos ! Muito obrigado pelo seu retorno! Fico muito feliz em saber que minhas aulas estão lhe ajudando. Esse é um dos objetivos do meu projeto. Sucesso!

[@clebermotta]

Oi Alessandro! Não entendi plenamente a aplicação do Ponto de Saída e do comando "Resume". Mais adiante será explicado em maiores detalhes? Obrigado,

[@AlessandroTrovato]

Não Cleber Motta! Trato desse assunto apenas nessa aula... (se minha memória não está equivocada)

[@lucianesilvamarques]

alessandro! show de bola esse teu trabalho. so que tenho uma duvida, gostaria de adicionar uma opçao de apos a mensagem de senha invorreta o usuario pudesse me enviar um email solicitando a senha. esse email devera vir alem de uma mensagem tambem algumas informaçoes sobre usuario, pasta entre outras como mostradas na aula 23

[@AlessandroTrovato]

Olá Luciane! Eu não tenho nenhuma aula ainda sobre o envio de emails pelo VBA. Mas o amigo Fernando Fernandes do canal Expresso Excel e o Tomas Vasquez têm esse material. Bons estudos!

[@daniellamaria2252]

Quando eu bloqueio com a senha 123, consigo desbloquear com a senha 333. Acontece com mais alguém? Por que isso acontece?

[@AlessandroTrovato]

Olá Daniella! Dê uma olhada no seu código pois deve haver algum problema. O Excel não consegue bloquear via macro a planilha se ela já estiver bloqueada. Faça o seguinte: desbloqueie todas as planilhas manualmente. Depois disso execute a macro com a senha 123 Tente desbloquear... Se precisar, baixe a planilha que está para download no meu blog: www.sigaonerd.com na seção apostilas do nerd. Bons estudos!

[@daniellamaria2252]

Obrigada pelo auxílio! Consegui resolver. Me inscrevi em seu canal, pois pretendo assistir a todas as suas aulas de VBA e Excel. Indicarei seu canal aos meus contatos.

[@AlessandroTrovato]

Olá Daniella! Muito obrigado pela devolutiva e espero que tenha muito sucesso em seus estudos. Já são mais de 90 aulas de VBA no meu canal...

[@humilitywewantit]

Parabéns por sua nobre iniciativa de compartilhar seus conhecimentos gratuitamente. Estou acompanhando seus vídeos, novidades e canal. Forte abraço! Que você tenha ainda mais sucesso!

[@assisgauderetogaudereto7882]

excelente aula. mas, o aluno curioso tem uma pergunta. estamos trabalhando com senha. OK, mas, quando meu erro está no código? eu vou em Ferramenta/Referencia e tiro a seleção. deu certo OK, na planilha, torna inválido o código?

[@ContatoLFMathias]

...acho que encontrei: www.tomasvasquez.com.br/blog/microsoft-office/vba-utilizando-inputbox-com-mascara-senha

[@AlessandroTrovato]

Lúcio Mathias É isso ai... mas acredito que mudar o atributo da TextBox seja bem mais fácil! hehehehehe

[@leandrodiasferreira6671]

Boa noite Alessandro! Baixei uma planilha na internet que propõe um desafio: montar uma planilha idêntica à do exemplo utilizando macro. Consegui gerar a macro mas não consigo de forma alguma colocar o filtro de modo que ele seja permanente como na planilha original. Você pode me ajudar a entender? Quando protejo a planilha com senha surge o erro: "Erro em tempo de execução "1004". O método Insert da classe Range falhou". Posso te mandar a planilha, qual seu e-mail? Leandro Dias

[@AlessandroTrovato]

Olá Leandro! Grato pela mensagem mas infelizmente não vou poder ajudá-lo. Não estou prestando consultorias particulares devido a completa falta de tempo disponível. Convido você a conhecer os demais vídeos do canal. Atualmente tenho quase 360 vídeos publicados sendo que do Excel já são mais de 150! Segue abaixo o link para inscrição no canal. As aulas estão todas gravadas e liberadas em playlists para facilitar os estudos. Link de inscrição: kzbin.info/door/w774e7LrGYFc-D97JT1oCg Site com conteúdo (dos cursos completos) em ordem de estudo: sigaonerd.esy.es/index.html Bons estudos e sucesso!

[@muris3430]

VC é Otimo mais não funcionou para mim pq no programa tem login e o login não funciona bloqueando as planilhas . se poder me ajudar agradeço

[@clebermotta]

Olá Alessandro! Estou revendo a aula e tenho uma dúvida. A declaração "erro_codigo" é padrão para desvio do código, ou posso digitar qualquer declaração? Obrigado, Cleber

[@AlessandroTrovato]

Olá +Cleber Motta ! pode utilizar a declaração que desejar. O termo você escolhe!

[@clovispimentel572]

Tenho uma duvida ! Quando coloco um tratamento de erro , independente da posição do comando , "On Erro GoTo" , sempre que houver um erro na Sub, este ira acionar a On Erro ?

[@AlessandroTrovato]

+Clóvis Pimentel Sim ! Se você escrever o On Error na primeira linha do código e o erro surgir na linha 50, ele vai redirecionar a execução. Se você quiser interromper isso utilize o comando on error goto 0

[@niltonsilva48]

Caro Alessandro, estou com um problema em uma MACRO e gostaria de saber se vc pode me ajudar. Peço que caso vc se prontifique a me ajudar, enviar a resposta diretamente para meu e-mail ([e-mail]). O problema é o seguinte: nas linhas da macro: Next i ' Fecha planilhas unificadas For Each wb In Application.Workbooks If wb.Name "PERSONAL.XLSB" And wb.Name PlanilhaDestino Then wb.Close SaveChanges:=False End If Next A linha: If wb.Name "PERSONAL.XLSB" And wb.Name PlanilhaDestino Then está apresentando um erro: Erro de compilação Erro de sintaxe Você consegue resolver este problema, antecipadamente agradeço sua atenção.

[@oqueporque6918]

Ajudaria se o Sr. ensinasse a melhor forma correta imediatamente, depois mostrasse todos os contudos e porens, esse vai e volta só complica a explicação, seria uma maneira muito melhor de instruir.

[@demonchacon1]

boa tarde está dando este erro em meu form alguém poderia me ajudar Sub Preencherlistbox() Dim ultimalinha As Long Dim linha As Integer ultimalinha = Plan1.Range("65000").End(xlUp).Row For linha = 2 To ultimalinha UserForm1.ListBox1.AddItem Plan1.Range("A" & linha) UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 1) = Plan1.Range("B" & linha) Next End Sub