EXCELeINFO

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

by · 14 August, 2012

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

Tags:

You may also like...