para Héctor Miguel

Hola Hector... siento tener que informarte que no
funciona...:-((

Lo que ocurre ahora es que selecciono al alumno y no
muestra ninguna foto, aunque en la planilla de arriba
aparece la foto pero si cambio la selección no se borra.
Si selecciono en la planilla de abajo, no muestra nada.
La foto de arriba no hay manera de que desaparezca.

Una idea... ¿y si cambiamos la columna "am", que es la
que indica la dirección de las fotos?. Quiero decir que
para la planilla de arriba sea "am" y para la de abajo
sea "an" por ejemplo?

No sé a ver si encuentro alguna solución
gracias

un abrazo,
alejandro




siguiente instruccion :

==>Worksheets("Nombre de la hoja").Protect

UserInterfaceOnly:=True<>[practicamente] TODO lo que 'hagas por codigo'
estara 'permitido' [salvo algunas excepciones] :))

'pero...' [ademas] es necesario desproteger los objetos

de dibujo ['shapes' = las fotos]

entonces... la instruccion debera ser 'completa' [+/-

como la siguiente]

Private Sub Workbook_Open()
Worksheets("Nombre de la hoja").Protect _
PassWord:="MISMA_CONTRASEÑA", _
DrawingObjects:=False, _
UserInterfaceOnly:=True
End Sub

saludos,
hector.


.

hola, alejandro !

... siento tener que informarte que no funciona...:-((

'remontandome' a tu mensaje anterior [acerca de 'tus otros procedimientos QUE -des-PROTEGEN'] ...
___ transcribo ___

La hoja tiene proteccion. Creo que influye verdad?
¿Tengo que desproteger al principio y proteger al final, como hago con todas las macros?.
... ¿en que parte del codigo desprotejo, y en que parte vuelvo a proteger?.

¨¨¨¨¨¨ FIN ¨¨¨¨¨¨
solo 'me resta' suponer que [algun] 'otro' codigo ESTA [nuevamente] 're-protegiendo' la hoja
'pero...' POR COMPLETO, es decir, vuelve a 'poner' ==> [... DrawingObjects:=True] <=con lo cual, se 'hecha por tierra' la intencion de 'dejar' SIN proteccion los objetos de dibujo [para el codigo]

==> si decides 'quedarte' con el 'Workbook_Open'
ya NO 'necesitarias' la [constante] -des-re-proteccion de la/s hoja/s :))

¿comentas?
saludos,
hector.

Hola Hector:

Mira, éste es el código que tengo puesto en Workbook_Open:

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.ActiveWindow.DisplayHeadings = False
Application.CommandBars("Web").Visible = False
Worksheets("1ºtrimestre").Protect _
Password:="rhai", _
DrawingObjects:=False, _
UserInterfaceOnly:=True
DrawingObjects:=True
End Sub

-

No sé si hay que cambiar el orden de todo eso, pero me da
error en la última línea (DrawingObjects:=True), me dice
que se esperaba expresión y me resalta (:=)

Un abrazo
alejandro

hola, alejandro !

... siento tener que informarte que no funciona...:-((

'remontandome' a tu mensaje anterior [acerca de 'tus

otros procedimientos QUE -des-PROTEGEN'] ...

___ transcribo ___

La hoja tiene proteccion. Creo que influye verdad?
¿Tengo que desproteger al principio y proteger al

final, como hago con todas las macros?.

... ¿en que parte del codigo desprotejo, y en que

parte vuelvo a proteger?.

šššššš FIN šššššš
solo 'me resta' suponer que [algun] 'otro' codigo ESTA

[nuevamente] 're-protegiendo' la hoja

'pero...' POR COMPLETO, es decir, vuelve a 'poner' ==>

[... DrawingObjects:=True] <=>con lo cual, se 'hecha por tierra' la intencion
de 'dejar' SIN proteccion los objetos de dibujo [para el
codigo]

==> si decides 'quedarte' con el 'Workbook_Open'
ya NO 'necesitarias' la [constante] -des-re-

proteccion de la/s hoja/s :))

¿comentas?
saludos,
hector.


.

Hola Héctor:

Se me ha ocurrido una idea.
¿Es posible que cada vez que seleccione una celda
correspondiente a un alumno aparezca un MsgBox (sin
botones) y con la foto del alumno, en un rincon de la
pantalla? y que al seleccionar otro alumno en el
mismo MsgBox (o en otro igual) aparezca la foto del
siguiente alumno?... quizás estoy divagando pero por
preguntar nada se pierde, verdad?

Un abrazo
alejandro

hola, alejandro !

... este es el codigo que tengo puesto en Workbook_Open:
Private Sub Workbook_Open()
[...]
Worksheets("1ºtrimestre").Protect _
Password:="rhai", _
DrawingObjects:=False, _
UserInterfaceOnly:=True
DrawingObjects:=True
End Sub
No se si hay que cambiar el orden de todo eso, pero me da error en la ultima línea (DrawingObjects:=True)
me dice que se esperaba expresión y me resalta (:=)

'supongo' que ya lo has 'descubierto' :)) ['esa' linea esta 'sobrando'] =>ELIMINALA<si ya la has 'establecido' como 'false' [despues del 'password']... ¿para que 'cambiarla' a TRUE???]
=> ademas de que la linea 'anterior' NO tiene:
NI la coma [para el 'siguiente' argumento]
NI el caracter de 'continuacion' de linea [un espacio seguido de un guion_bajo -en vb-] =>' _'<
saludos,
hector.