BARRA DE FORMULAS

Hola..
Tengo un pequeño problemita...
estoy diseñando un libro con todas las hojas protejidas, desabilitado
copiar, cortar y pegar, inhabilidtadas todas las teclas de acceso por medio
de "on key".
no tengo menus y el libro esta en pantalla completa.
para pasar a las diferentes hojas lo hago a traves de commandbuttoms
y tengo un checkbox donde activa/desactiva la barra de formulas.
todo bien hasta aqui.
como evito que el usuario pueda seleccionar en la barra de formulas la parte
izquierda donde aparece el indicador de la celda ej "A1"
el problema se presenta debido a que tengo algunos nombres de rango
asignados y aunque esten protegidos los metodos antes mencionados , si el
usuario cliquea esa area y marca sobre el nombre de un rango me salta
automaticamente a ese rango aun cuando este en otra hoja.
com oevito esto ? como lo bloqueo o protejo?..
Gracias de antemano..
Me alimento del conocimiento de todos


"Orfao" wrote:

Me alimento del conocimiento de todos

hola, moises!

Tengo un peque#o problemita... estoy dise#ando un libro con todas las hojas protejidas
desabilitado > copiar, cortar y pegar, inhabilidtadas todas las teclas de acceso por medio de "on key".
no tengo menus y el libro esta en pantalla completa.
... pasar a las diferentes hojas lo hago a traves de commandbuttoms y tengo un checkbox donde activa/desactiva la barra de formulas.
todo bien hasta aqui.
como evito que el usuario pueda seleccionar en la barra de formulas la parte izquierda donde aparece el indicador de la celda ej "A1"
... debido a que tengo algunos nombres de rango asignados y aunque esten protegidos los metodos antes mencionados
si el usuario cliquea esa area y marca sobre el nombre de un rango me salta automaticamente a ese rango aun cuando este en otra hoja.
como evito esto ? como lo bloqueo o protejo?...

(hasta donde se) mientras la barra de formulas este visible, no puedes ocultar/inhabilitar/... la "caja de nombres"
aunque no tiene "atajo de teclado" siempre estara disponible al "clic del mouse" (y a la voluntad del usuario)

no te olvides que existen otras formas de "hacer lo mismo" (que seleccionar la caja de nombres)...
-> (menu) edicion / ir a... (a menos que deshabilites la barra de menus principal, los atajos siguen disponibles) -?-
-> (atajo de teclado) {F5}
-> (atajo de teclado) {ctrl}+i
-> si la aplicacion tiene deshabilitada la caracteristica de "modificar en celda" (herramientas / opciones / modificar)
un doble clic en alguna celda con referencias precedentes "hace un salto" a las refrencias (aun en otras hojas)

(mejor no le sigo... no quiero parecerte un "agua-fiestas") :))
creo que la alternativa mas sencilla es que mantengas ocultos los nombres definidos
(p.e.) prueba esta instruccion desde la ventana de inmediato en el editor de vba:

for each n in activeworkbook.names: n.visible=false: next

que no se pueda ver, no significa que no se pueda usar
si el usuario "conoce" el nombre (que de todas formas lo puede "ver" en las formulas)... podra seguir "saltando" a el

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Muchas Gracias Hector.
me lo presuponia... pero, habra forma de inhabilitar el doble click ?
Y otra duda:
en ina ocacion me diste comentamos acerca de cambiar el puntero del mouse.
yo use application.cursor =xlbeam
pero el problema esta que si no lo configuro como xldefault
no se me aplican las configuraciones del mouseicon personalizadas en los
commandbuttons
como te comente en un foro anterior la idea era evitar la cruz del puntero
en la aplicacion. pero que al pasar sobre un control que "cambie" a otro
cursor. como le hago? alguna sugerencia??

Me alimento del conocimiento de todos


"Héctor Miguel" wrote:

hola, moises!

> Tengo un peque#o problemita... estoy dise#ando un libro con todas las hojas protejidas
> desabilitado > copiar, cortar y pegar, inhabilidtadas todas las teclas de acceso por medio de "on key".
> no tengo menus y el libro esta en pantalla completa.
> ... pasar a las diferentes hojas lo hago a traves de commandbuttoms y tengo un checkbox donde activa/desactiva la barra de formulas.
> todo bien hasta aqui.
> como evito que el usuario pueda seleccionar en la barra de formulas la parte izquierda donde aparece el indicador de la celda ej "A1"
> ... debido a que tengo algunos nombres de rango asignados y aunque esten protegidos los metodos antes mencionados
> si el usuario cliquea esa area y marca sobre el nombre de un rango me salta automaticamente a ese rango aun cuando este en otra hoja.
> como evito esto ? como lo bloqueo o protejo?...

(hasta donde se) mientras la barra de formulas este visible, no puedes ocultar/inhabilitar/... la "caja de nombres"
aunque no tiene "atajo de teclado" siempre estara disponible al "clic del mouse" (y a la voluntad del usuario)

no te olvides que existen otras formas de "hacer lo mismo" (que seleccionar la caja de nombres)...
-> (menu) edicion / ir a... (a menos que deshabilites la barra de menus principal, los atajos siguen disponibles) -?-
-> (atajo de teclado) {F5}
-> (atajo de teclado) {ctrl}+i
-> si la aplicacion tiene deshabilitada la caracteristica de "modificar en celda" (herramientas / opciones / modificar)
un doble clic en alguna celda con referencias precedentes "hace un salto" a las refrencias (aun en otras hojas)

(mejor no le sigo... no quiero parecerte un "agua-fiestas") :))
creo que la alternativa mas sencilla es que mantengas ocultos los nombres definidos
(p.e.) prueba esta instruccion desde la ventana de inmediato en el editor de vba:

for each n in activeworkbook.names: n.visible=false: next

que no se pueda ver, no significa que no se pueda usar
si el usuario "conoce" el nombre (que de todas formas lo puede "ver" en las formulas)... podra seguir "saltando" a el

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

hola, moises !

me lo presuponia... pero, habra forma de inhabilitar el doble click ?

=> cancela en el evento '_beforedoubleclck' (por cada hoja en su modulo)
o cancela en el evento '_sheetbeforedoublelick' (para todas las hojas en el ThisWorkbook)

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

... acerca de cambiar el puntero del mouse. yo use application.cursor = xlbeam
pero... si no lo configuro como xldefault no se me aplican las... del mouseicon... en los commandbuttons
... la idea era evitar la cruz del puntero en la aplicacion. pero que al pasar sobre un control que "cambie" a otro cursor.
como le hago? alguna sugerencia??

(creo que) te sale mas barato si ajustas el area del commandbutton sobre la que se cambie uno u otro cursor :))
si dejas libre una especie de marco (p.e. de 5 pixeles) como las orilas del objeto donde se considere fuera de foco...
-> el siguiente ejemplo en el modulo de codigo de esa hoja donde esta incrutado el commandbutton alterna el cursor

Private Sub CommandButton1_MouseMove( _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
With CommandButton1
If (X >= 5 And Y >= 5) And _
(X <= .Width - 5 And Y <= .Height - 5) _
Then Application.Cursor = xlDefault _
Else .Application.Cursor = xlIBeam
End With
End Sub

OJO: (probablemente) necsitaras ajustar el cuadrante del boton en el que se detecta el paso del mouse para el cambio -?-
-> la constante de 5 que te puse en el ejemplo, prueba aumentandola para reducir el area donde ocurre el cambio ;)
o... procura NO ser tan rapido con el mouse al pasar sobre el boton :D

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Gracias Hector.

Lo del beforedoubleclick Funciona bien a exepcion de una hoja donde tomo una
foto (con el boton de la camarita) de un rango de celdas y la coloco en otra
hoja.
y no hallo la manera de evitar que pase a la hoja de donde tomo la foto
cuando pressiono doble click sobre la imagen. Como evito esto ?


Me alimento del conocimiento de todos


"Héctor Miguel" wrote:

hola, moises !

> me lo presuponia... pero, habra forma de inhabilitar el doble click ?

=> cancela en el evento '_beforedoubleclck' (por cada hoja en su modulo)
o cancela en el evento '_sheetbeforedoublelick' (para todas las hojas en el ThisWorkbook)

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

> ... acerca de cambiar el puntero del mouse. yo use application.cursor = xlbeam
> pero... si no lo configuro como xldefault no se me aplican las... del mouseicon... en los commandbuttons
> ... la idea era evitar la cruz del puntero en la aplicacion. pero que al pasar sobre un control que "cambie" a otro cursor.
> como le hago? alguna sugerencia??

(creo que) te sale mas barato si ajustas el area del commandbutton sobre la que se cambie uno u otro cursor :))
si dejas libre una especie de marco (p.e. de 5 pixeles) como las orilas del objeto donde se considere fuera de foco...
-> el siguiente ejemplo en el modulo de codigo de esa hoja donde esta incrutado el commandbutton alterna el cursor

Private Sub CommandButton1_MouseMove( _
ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
With CommandButton1
If (X >= 5 And Y >= 5) And _
(X <= .Width - 5 And Y <= .Height - 5) _
Then Application.Cursor = xlDefault _
Else .Application.Cursor = xlIBeam
End With
End Sub

OJO: (probablemente) necsitaras ajustar el cuadrante del boton en el que se detecta el paso del mouse para el cambio -?-
-> la constante de 5 que te puse en el ejemplo, prueba aumentandola para reducir el area donde ocurre el cambio ;)
o... procura NO ser tan rapido con el mouse al pasar sobre el boton :D

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.