Notifications
Clear all

Desativar Busca CTRC + L em VBA

5 Posts
3 Usuários
0 Reactions
1,297 Visualizações
(@lucianorn)
Posts: 14
Active Member
Topic starter
 

Olá, teria a possibilidade de desativar
o comando de busca CTRL + L apenas de uma planilha do excel
deixando as outras com possibilidades de executar está função.
artigos muito bom, obrigado pela atenção.

 
Postado : 22/05/2017 1:33 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Eu tenho uma.pergunta.

Pq vc quer desabilitar a opção de localizar dados?

Qual a ideia?

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 : 23/05/2017 1:52 am
(@lucianorn)
Posts: 14
Active Member
Topic starter
 

Bem é o seguinte desenvolvi um filtro no qual faz essa busca na planilha e para isso ele responde melhor que a busca do excel
só que alguns que ocupam este sistema acabam deixando o filtro de lado e utilizam a opção CTRL + L, no qual acabam se atrapalhando na busca,
por isso que pretendo desativar a busca apenas de uma planilha do excel deixando o restante das planilhas que não contem este filtro especifico para
poder executar a busca pelo excel mesmo.

Application.OnKey "^L", "" ' tentei este método mas não bloqueou à busca

testei este relacionados abaixo e deu certo só que precisaria para bloquear a busca não estes.
Application.OnKey "^O", "" 'Ctrl+O abrir arquivo
Application.OnKey "^S", "" 'Ctrl+S salvar
Application.OnKey "{F12}", "" 'F12 salvar como

 
Postado : 23/05/2017 5:46 am
Syrax
(@syrax)
Posts: 160
Estimable Member
 

Veja se isso te ajuda

em EstaPasta_de_trabalho

Private Sub Workbook_Activate()
    Application.OnKey "^l", ""
End Sub
Private Sub Workbook_Deactivate()
    Application.OnKey "^l"
End Sub

o primeiro evento roda quando você abre a planilha, e torna ela ativa, neste momento ele cancela o CTRL+L
o segundo evento, ocorre no exato momento que você muda o foco para outra planilha, e ela não é o activeworkbook, ativa o CTRL+L

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

 
Postado : 23/05/2017 8:02 am
(@lucianorn)
Posts: 14
Active Member
Topic starter
 

Perfeito agora funcionou!
Obrigado.

 
Postado : 23/05/2017 8:49 am