Home Excel - Dicas Microsoft Excel VBA Excel VBA - Teclas Excel planilha vba teclas ativa desativa todas teclas

Excel planilha vba teclas ativa desativa todas teclas

E-mail Imprimir PDF

Saberexcel - O site das Macros

Essa macro do Aplicativo Microsoft Excel VBA, contém códigos que habilitam ou desabilitam todas as teclas de comando.
observem que os simbolos representam uma tecla ( "^" = Ctrl ); ("%" = Alt ) ( "+" = Shift )

Sub desabilitando_teclas_insere_data_hora_e_salvar()
Application.OnKey ";", ""
Application.OnKey "S", ""
End Sub

Sub Desabilitando_teclas()
' *** File ***
Application.OnKey "^N", "" 'Ctrl+N novo arquivo
Application.OnKey "^O", "" 'Ctrl+O abrir arquivo
Application.OnKey "^S", "" 'Ctrl+S salvar
Application.OnKey "{F12}", "" 'F12 salvar como
Application.OnKey "%{F4}", "" 'Alt+F4 sair do Excel
'*** Edit ***
Application.OnKey "^H", "" 'Ctrl+H replace
Application.OnKey "{F5}", "" 'F5 Goto
'*** Insert ***
Application.OnKey "^+{+}", "" 'Ctrl+Shift+ + inserir dialog box
Application.OnKey "+{F11}", "" 'Shift+F11 novo worksheet
Application.OnKey "{F11}", "" 'F11 novo gráfico
Application.OnKey "^{F11}", "" 'Ctrl+F11 macro do Excel 4.0
Application.OnKey "+{F3}", "" 'Ctrl+F3 definir nome
Application.OnKey "{F3}", "" 'F3 colar nomes
Application.OnKey "^+{F3}", "" 'Ctrl+Shift+F3 criar nomes
'*** Format ***
Application.OnKey "^1", "" 'Ctrl+1 formatar células
Application.OnKey "^9", "" 'Ctrl+9 esconder linhas
Application.OnKey "^+{(}", "" 'Ctrl+Shift+( mostrar linhas
Application.OnKey "^0", "" 'Ctrl+0 esconder colunas
Application.OnKey "^+{)}", "" 'Ctrl+Shift+) mostrar colunas
'*** Data ***
Application.OnKey "%+{RIGHT}", "" 'Alt+Shift+RightArrow agrupa linhas/colunas
Application.OnKey "%+{LEFT}", "" 'Alt+Shift+LeftArrow desagrupa linhas/colunas
'*** Window ***
Application.OnKey "{F6}", "" 'F6 próximo painel
Application.OnKey "+{F6}", "" 'Shift+F6 painel anterior
Application.OnKey "^{F6}", "" 'Ctrl+F6 próxima janela
Application.OnKey "^+{F6}", "" 'Ctrl+Shift+F6 janela anterior
'*** Outros ***
Application.OnKey "^{PGUP}", "" 'Ctrl+PgUp sheet anterior
Application.OnKey "^{PGDN}", "" 'Ctrl+PgDn sheet posterior
Application.OnKey "+{F12}", "" 'Shift+F12 salvar
Application.OnKey "^{F12}", "" 'Ctrl+F12 abrir
Application.OnKey "^{TAB}", "" 'Ctrl+Tab próxima janela
Application.OnKey "^+{TAB}", "" 'Ctrl+Shift+Tab janela anterior
Application.OnKey "^{-}", "" 'Ctrl+- exclui seleção
Application.OnKey "^{;}", "" 'Ctrl+; insere data
Application.OnKey "^{:}", "" 'Ctrl+: insere hora
Application.OnKey "{TAB}", "" 'Tab
End Sub

Sub Habilitando_teclas()
' *** File ***
Application.OnKey "^N" 'Ctrl+N novo arquivo
Application.OnKey "^O" 'Ctrl+O abrir arquivo
Application.OnKey "^S" 'Ctrl+S salvar
Application.OnKey "{F12}" 'F12 salvar como
Application.OnKey "%{F4}" 'Alt+F4 sair do Excel
' *** Edit ***
Application.OnKey "^H" 'Ctrl+H replace
Application.OnKey "{F5}" 'F5 Goto
' *** Insert ***
Application.OnKey "^+{+}" 'Ctrl+Shift+ + inserir dialog box
Application.OnKey "+{F11}" 'Shift+F11 novo worksheet
Application.OnKey "{F11}" 'F11 novo gráfico
Application.OnKey "^{F11}" 'Ctrl+F11 macro do Excel 4.0
Application.OnKey "+{F3}" 'Ctrl+F3 definir nome
Application.OnKey "{F3}" 'F3 colar nomes
Application.OnKey "^+{F3}" 'Ctrl+Shift+F3 criar nomes
' *** Format ***
Application.OnKey "^1" 'Ctrl+1 formatar células
Application.OnKey "^9" 'Ctrl+9 esconder linhas
Application.OnKey "^+{(}" 'Ctrl+Shift+( mostrar linhas
Application.OnKey "^0" 'Ctrl+0 esconder colunas
Application.OnKey "^+{)}" 'Ctrl+Shift+) mostrar colunas
' *** Data ***
Application.OnKey "%+{RIGHT}" 'Alt+Shift+RightArrow agrupa linhas/colunas
Application.OnKey "%+{LEFT}" 'Alt+Shift+LeftArrow desagrupa linhas/colunas
' *** Window ***
Application.OnKey "{F6}" 'F6 próximo painel
Application.OnKey "+{F6}" 'Shift+F6 painel anterior
Application.OnKey "^{F6}" 'Ctrl+F6 próxima janela
Application.OnKey "^+{F6}" 'Ctrl+Shift+F6 janela anterior
' *** Outros ***
Application.OnKey "^{PGUP}" 'Ctrl+PgUp sheet anterior
Application.OnKey "^{PGDN}" 'Ctrl+PgDn sheet posterior
Application.OnKey "+{F12}" 'Shift+F12 salvar
Application.OnKey "^{F12}" 'Ctrl+F12 abrir
Application.OnKey "^{TAB}" 'Ctrl+Tab próxima janela
Application.OnKey "^+{TAB}" 'Ctrl+Shift+Tab janela anterior
Application.OnKey "{TAB}" 'Tab
Application.OnKey "^{-}" 'Ctrl+- exclui seleção
Application.OnKey "^{;}" 'Ctrl+; insere data
Application.OnKey "^{:}" 'Ctrl+: insere hora
End Sub


Aprenda Aplicativo Microsoft Excel VBA - com SaberExcel VBA



  Baixe o exemplo de planilha contendo as macros acima
vba teclas ativa desativa todas teclas (33.43 kB 2010-11-28 09:37:12)

Última atualização em Ter, 23 de Agosto de 2011 09:20  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4362
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana29022
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês42751
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10465580
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA