Ir para o conteúdo
jnabais

Desactivar teclas com VBA no Excel

Mensagens Recomendadas

jnabais    0
jnabais

Boa noite

Gostaria de saber se é possível bloquear (desactivar) as teclas (comando) Alt+Shift+F11 que corresponde ao Microsoft Script Editor com programação VBA no excel.

Grato pela ajuda.

Cumprimentos ao forum.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

Olá,

Podes fazer em duas fazer (para ficar mais completo)

1º Desabilitas a tecla atribuindo outra função, que será em branco para não fazer nada

Application.OnKey "+%{F11}", ""

2º Desabilitas o menu para o utilizador não ir pelos menus

Dim menubar As CommandBar
Dim menuitem As CommandBarPopup

Set menubar = CommandBars("Tools")
Set menuitem = menubar.Controls(14)
menuitem.Controls(5).Enabled = False

Podes colocar no arranque do excel e voltar a habilitar quando fechares o ficheiro de modo a não interferir com os outros workbooks. Já agora para restaurar as teclas fazer:

Application.OnKey "+%{F11}"

Nota: Testado para Excel 2003

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade