Desactivar teclas com VBA no Excel

[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.

[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

[jnabais]

Olá

Mais uma vez obrigadão...

Cumprimentos

PS Assunto encerrado.