Bloquear el comando: Cotrol + Av pág - Re Pág
Buenas tengo un libro con varias hojas paras las cuales tengo ua clave de acceso, pero se puede mover por las hojas con el comando Cotrol + Av pág o Cotrol +Re Pág, por cuanto requiero una macro para bloquear esta posibilidad gracias.
Respuesta de desenex41
1
Para inactivar el avence o retrocezo entre las hojas de un libro de excel debes colocar en los eventos "Workbook_Open()" y "Workbook_BeforeClose()" del "ThisWorkbook"
Estas lines de código:
Application.OnKey "^{PGUP}" 'Activate Ctrl-PageUp
Application.OnKey "^{PGDN}" 'Activate Ctrl-PageDown
Application.OnKey "^{PGUP}", "" 'Deactivate Ctrl-PageUp
Application.OnKey "^{PGDN}", "" 'Deactivate Ctrl-PageDown
debe quedar así:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^{PGUP}" 'Activate Ctrl-PageUp
Application.OnKey "^{PGDN}" 'Activate Ctrl-PageDown
End Sub
Private Sub Workbook_Open()
Application.OnKey "^{PGUP}", "" 'Deactivate Ctrl-PageUp
Application.OnKey "^{PGDN}", "" 'Deactivate Ctrl-PageDown
End Sub
Estas lines de código:
Application.OnKey "^{PGUP}" 'Activate Ctrl-PageUp
Application.OnKey "^{PGDN}" 'Activate Ctrl-PageDown
Application.OnKey "^{PGUP}", "" 'Deactivate Ctrl-PageUp
Application.OnKey "^{PGDN}", "" 'Deactivate Ctrl-PageDown
debe quedar así:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^{PGUP}" 'Activate Ctrl-PageUp
Application.OnKey "^{PGDN}" 'Activate Ctrl-PageDown
End Sub
Private Sub Workbook_Open()
Application.OnKey "^{PGUP}", "" 'Deactivate Ctrl-PageUp
Application.OnKey "^{PGDN}", "" 'Deactivate Ctrl-PageDown
End Sub
