Prohibir el acceso a las macros de Excel con Alt + F11

En algunas ocasiones, cuando desarrollamos nuestras aplicaciones en Excel, deseamos que los usuarios no puedan entrar a nuestras macros mediante la combinación de celdas Alt + F11. Resulta imprescindible también asignarle una contraseña a nuestras macros, para tener bloqueo total.

Funcionamiento

Al abrirse el archivo, se ejecutará la macro ProhibirF11, la cual asignará al evento OnKey la macro de MensajeF11 para que se lance un texto indicando la prohibición de esa combinación de teclas. Al salir del archivo, quedará anulada la prohibición.

image

Se mostrará un mensaje al momento de querer entrar a las macros.

Código de la macro

Dentro de nuestro objeto ThisWorkBook, incluímos el código:

Private Sub Workbook_Open()
Call ProhibirF11
End Sub
'
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call PermitirF11
End Sub

Y dentro de un módulo, incluímos el código:

Sub ProhibirF11()
Application.OnKey "%{F11}", "MensajeF11"
End Sub
'
Sub MensajeF11()
MsgBox "No se puede acceder al IDE de VBA", vbExclamation, "EXCELeINFO"
End Sub
'
Sub PermitirF11()
Application.OnKey "%{F11}"
End Sub

You may also like...

1 Response

  1. Jose Ortega says:

    Hola Sergio:
    Antes que nada Felicitarte es un excelente trabajo el que tienes en tu sitio.
    quiero preguntarte si existe la forma de ejecutar alguna macro como esta del ejemplo que das al dar clic en el menú de programador

Leave a Reply

Your email address will not be published.

%d bloggers like this: