Notifications
Clear all

Desabilitar o botão "esc"

8 Posts
2 Usuários
0 Reactions
4,961 Visualizações
(@dlhunsil)
Posts: 21
Eminent Member
Topic starter
 

Boa tarde a todos
gostaria q alguem me ajudasse a bloquear o botão "esc"
desde ja agradeço

att.

 
Postado : 21/08/2012 1:11 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite dlhunsil

Tem a respota neste link:

http://www.exceler.org/index.php?option ... &Itemid=88

Nele tem um código que desabilita a tecla ESC quando abrir a planilha.

Um abraço.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/08/2012 3:34 pm
(@dlhunsil)
Posts: 21
Eminent Member
Topic starter
 

Meu problema é o seguinte... eu to no trampo e nem sei pq esse site abre... esse q vc me passou ta block pra mim

 
Postado : 22/08/2012 6:36 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

No link disponibilizado; recomenda utilizar (não testei)

Private Sub Workbook_Open()
Application.OnKey "{Escape}", ""
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/08/2012 7:38 am
(@dlhunsil)
Posts: 21
Eminent Member
Topic starter
 

oq eu quero é q ao iniciar a macro ele seja desabilitado e no fim seja habilitado denovo
e esse não funcionou

 
Postado : 27/08/2012 5:53 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Depois habilite novamente.

....
Application.OnKey "{Escape}"
.......

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/08/2012 6:07 am
(@dlhunsil)
Posts: 21
Eminent Member
Topic starter
 

ou não to sabendo usar ou não funcionou não

 
Postado : 28/08/2012 12:13 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Considerando que você, alocou o código dentro de "EstaPasta_de_Trabalho", então ...

Private Sub Workbook_Open()
Application.OnKey "{Escape}", ""

'Seu_Código_Aqui....

Application.OnKey "{Escape}"

End Sub

Não testado!!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/08/2012 5:50 pm