Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Proibido o uso de C...
 
Notifications
Clear all

Proibido o uso de Combinações entre teclas do windows

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

Prezados, como faço para localizar a referência da tecla do símbolo do Windows, alguém poderia me ajudar?
Já agradeço muito pela atenção e colaboração
Problema:
Quando eu utilizo as combinações entre a tecla com o símbolo do Windows juntamente com umas dessas tecas: ↓ → ↑ ←
Windows + → (move a janela do excel para o lado direito)
Windows + ↑ (move a janela do excel para cima)
Windows + ← (move a janela do excel para o lado esquerdo)
Windows + ↓ (move a janela do excel para o baixo)
Eu gostaria de travar isso (mesmo que o usuário tente fazer alguma combinação acima, ele não vai ter sucesso, pois a janela do excel não vai se mover).

Abaixo segue a lista de combinações que encontrei na internet, porém eu não estou conseguindo aplicar na planilha para evitar que a janela se mova.
Alguém sabe qual tecla corresponde ao símbolo do Windows?
Ou
Alguém sabe como posso evitar que a janela do excel seja movida (para cima, para baixo, para o lado esquerdo, para o lado direto).
Combinações localizadas na internet

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
 
Postado : 06/04/2018 6:56 am
 Necron
(@necron)
Posts: 117
Estimable Member
 

Ao invés de você bloquear o atalho, devido a boas praticas, recomendo que impeça o usuário de movimentar a Janela do Excel com o código a seguir:


Private Sub Workbook_WindowResize(ByVal Wn As Window)

    Application.ScreenUpdating = False
    Application.EnableEvents = False

    Wn.WindowState = xlMaximized

    Application.EnableEvents = True
    Application.ScreenUpdating = True

End Sub

Isso deve ser inserido em sua pasta de trabalho, e sempre que o usuário tentar movimentar a janela, ela vai retornar para o estado maximizado.

Fui Util? Click na "Mãozinha" ali do lado >>>> e agradeça.

 
Postado : 06/04/2018 7:20 am
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

olá agradeço pela atenção.

as teclas do windows + as setas funcionam para a janela principal do excel (janela que possui o X para encerrar a planilha)

mesmo usando o código que você postou, essa janela principal continua sendo alterada quando uso as combinações.

faça um pequeno teste.

use o código e depois de salvar a planilha, abra ela e maximize, depois use as combinações (tecla com o símbolo do windows + ↓)

a planilha será alterada.

em anexo, segue a imagem.

 
Postado : 06/04/2018 8:17 am
Forum Jump:
  Tópico Anterior
Próximo Tópico