Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda com MsgBox
 
Notifications
Clear all

Ajuda com MsgBox

 
2024 - VBA & Macros
Post Recente por xandrinho 8 anos atrás
4 Posts
3 Usuários
0 Reactions
1,033 Visualizações
RSS
 xandrinho
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Boa Noite Pessoal!!!
Preciso de uma ajuda dos mestres!!!
Estou trabalhando em um projeto e para inicio, gostaria de uma tomada de decisão através de MSGBox.
No exemplo criei um módulo e gostaria que quando o arquivo fosse “ativado” (Open), fosse exibido uma mensagem. Deseja executar a Macro SIM ou NÃO. Se o usuário optasse por sim, ai sim executasse a ação do módulo, caso o usuário opte por não, o arquivo abriria normalmente sem executar a macro...

Poderiam me ajudar?

teste.zip
 
Postado : 22/08/2016 4:55 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Cole esse codigo em Esta Pasta de Trabalho

Private Sub Workbook_Open()
Dim Resposta As String
Resposta = MsgBox("Deseja Executar a Macro", vbYesNo, "Atenção")
If Resposta = vbNo Then Exit Sub
'Substitura SuaMacro pelo nome da macro a ser executada
Call SuaMacro
End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 22/08/2016 6:02 pm
 Osvaldomp
(@osvaldomp)
Posts: 858
Prominent Member
 
Private Sub Workbook_Open()
 If MsgBox("Deseja executar a Macro?", vbYesNo + vbQuestion) = vbYes Then teste
End Sub

Osvaldo

 
Postado : 22/08/2016 6:21 pm
 xandrinho
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Perfeito Mto Obrigado pela Ajuda, era exatamente o que precisava.

Ambas as respostas me ajudaram. Obrigado!!!!
Abcs.

 
Postado : 23/08/2016 12:18 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico