Bloquear Comandos
Hola:
Como podría bloquearse por medio de una macro los comandos: Guardar (ctrl+G), Guardar como... E Imprimir (ctr+P), de tal forma que el usuario no pueda ejecutar por medio del tecleado estas opciones.
Espero puedan ayudarme
Saludos
Como podría bloquearse por medio de una macro los comandos: Guardar (ctrl+G), Guardar como... E Imprimir (ctr+P), de tal forma que el usuario no pueda ejecutar por medio del tecleado estas opciones.
Espero puedan ayudarme
Saludos
Respuesta de jgirj
1
Es posible usando el editor de VBA:
En el evento open del workbook coloca lo siguiente:
Private Sub Workbook_Open()
Set_Keys
End Sub
En el evento Before_Close del workbook coloca lo siguiente:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Reset_Keys
End Sub
Inserta un módulo y agrega lo siguiente:
Public Sub Set_Keys()
Application.OnKey "^{g}", "Mostrar_Mensaje"
Application.OnKey "^{p}", "Mostrar_Mensaje"
End Sub
Public Sub Reset_Keys()
Application.OnKey "^{g}"
Application.OnKey "^{p}"
End Sub
Public Sub Mostrar_Mensaje()
MsgBox "Esta Funcion No Esta Ahora Disponible"
Exit Sub
End Sub
Igualmente puedes llamar las rutinas Set_Keys y Reset_Keys desde cualquier parte de tu código, por ejemplo activarlas y desactivarlas con un botón o al activar una hoja. Espero que te sirva y por favor no olvides valorar mi respuesta
En el evento open del workbook coloca lo siguiente:
Private Sub Workbook_Open()
Set_Keys
End Sub
En el evento Before_Close del workbook coloca lo siguiente:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Reset_Keys
End Sub
Inserta un módulo y agrega lo siguiente:
Public Sub Set_Keys()
Application.OnKey "^{g}", "Mostrar_Mensaje"
Application.OnKey "^{p}", "Mostrar_Mensaje"
End Sub
Public Sub Reset_Keys()
Application.OnKey "^{g}"
Application.OnKey "^{p}"
End Sub
Public Sub Mostrar_Mensaje()
MsgBox "Esta Funcion No Esta Ahora Disponible"
Exit Sub
End Sub
Igualmente puedes llamar las rutinas Set_Keys y Reset_Keys desde cualquier parte de tu código, por ejemplo activarlas y desactivarlas con un botón o al activar una hoja. Espero que te sirva y por favor no olvides valorar mi respuesta
