Prohibir la creación de gráficas

. 20.04.17 #VBA Onkey

Buenas noches, Jairo

Puedes usar esta instrucción que asignará esa función cada vez que accedas al acceder a determinado libro y, al salir lo devuelve a su función habitual

Para que funcione, activa el editor de Visual Basic (presiona Alt+F11) y en la hoja que dice "ThisWorkbook" (o "EsteLibro" según la versión")

Copia el código siguiente y pégale en el panel desplegado a la derecha de su Editor de Visual Basic:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'devuelve función natural a F11
   Application.OnKey "{F11}"
End Sub
Private Sub Workbook_Open()
'Asigna una macro de aviso a F11
   Application.OnKey "{F11}", "TuMacro"
End Sub

Luego, Inserta un módulo  y pega esta rutina para que avise de tal situación:

Sub TuMacro()
    MsgBox "Tecla F11 desabilitada", vbCritical, "F11 desactivada"
End Sub

Como verás la rutina asigna a la tecla indicada la macro que quieras que se ejecute al presionarla.

Pon la siguiente macro en un módulo y ejecuta la macro Cancelar_F11

Sub Cancelar_F11()
    Application.OnKey "{F11}", "Mensaje"
End Sub
'
Sub Mensaje()
    MsgBox "no es posible ejecutar f11"
End Sub

Pon esto en el evento Open de thisworkbook para que se ejecute al abrir el archivo:

Private Sub Workbook_Open()
    Call Cancelar_F11
End Sub

Para habilitar nuevamente la tecla F11, ejecuta esta macro

Sub Habilitar_F11()
    Application.OnKey "{F11}"
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

.

.