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