Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Exibir msgbox apena...
 
Notifications
Clear all

Exibir msgbox apenas para planilha especifica

 
2024 - VBA & Macros
Post Recente por xlarruda 7 anos atrás
6 Posts
3 Usuários
0 Reactions
1,435 Visualizações
RSS
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Prezados, bom dia!

Por favor, alguém poderia me ajudar?

Eu tenho uma macro criada para exibir uma mensagem ao usuáiro, porém eu gostaria que essa mensagem fosse exibida apenas para uma pasta de trabalho juntamente com uma planilha especifica.

eu criei um botão personalizado na faixa de opções do excel

se for possível eu gostaria que esse botão ficasse visível apenas para a pasta de trabalho: Controle de Clientes - Escritório

Código que eu tentei utilizar (não deu certo)

Sub mensagem()
If Application.Workbooks("Controle de Clientes  - Escritório") & Sheets("lista de empresas") Then
MsgBox "Olá, bom dia!", vbInformation, "Mensagem"
End If
End Sub

' procedimentos:

' o usuário somente vai conseguir executar a macro se atender aos critérios abaixo:
' o usuário precisa estar com a pasta de trabalho Controle de Clientes  - Escritório aberta;
' e com a planilha lista de empresas ativa


'* Procedimento adicional

' * GOSTARIA DE SABER SE CASO O USUÁIRO ABRIR UMA PASTA DE TRABALHO DIFERENTE (QUALQUER OUTRA)
' **** ESSE MEU BOTÃO PERSONALIZADO PODERIA FICAR OCULTO

muito obrigado a todos

 
Postado : 28/05/2018 7:32 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

JNEXCEL Bom dia!
Quanto a ficar oculto não sei dizer mas tente o seguinte:

Sub mensagem()
If ActiveWorkbook.Name = "Controle de Clientes  - Escritório.xlsm" And ActiveSheet.Name = "lista de empresas" Then
MsgBox "Olá, bom dia!", vbInformation, "Mensagem"
End If
End Sub

Obs. Inseri o código como se sua pasta fosse xlsm. Caso não seja, altere.

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 28/05/2018 8:55 am
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Olá, aqui deu certo quando eu abri a pasta de trabalho: Controle de Clientes - Escritório

o problema foi o seguinte:

quando eu fechei essa pasta de trabalho e abri um novo arquivo do excel (arquivo em branco) e cliquei no meu botão personalizado

automaticamente minha pasta de trabalho Controle de Clientes - Escritório foi aberta

o que será que aconteceu? :?: :?:

em anexo, segue a planilha para você testar ai

muito obrigado!

 
Postado : 28/05/2018 9:33 am
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

alguém sabe por qual motivo isso aconteceu?

 
Postado : 29/05/2018 5:00 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Pq nao coloca a mensagem na abertura da planilha ao inves do botao?

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 : 29/05/2018 10:36 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Provavelmente, nesse botão personalizado, existe algum comando que abre a planilha "Controle de Clientes - Escritório.xlsm".

Poderia disponibilizar o código desse botão?

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 29/05/2018 10:44 am
Forum Jump:
  Tópico Anterior
Próximo Tópico