Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

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.