Jump to content
jnabais

Desactivar teclas com VBA no Excel

Recommended Posts

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.

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.