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