para Héctor Miguel

hola, alejandro !

¿... cada vez que seleccione ... un alumno ... un MsgBox ... con la foto del alumno, en un rincon de la pantalla? [...]

no se si se pueda 'manejar' ese tipo de imagenes en un MsgBox :((, pero... con un 'UserForm' si es posible :))
[la parte de 'SIN botones', requiere de 'llamadas' a las API's de windows y codigos mas 'complicadillos']

si no te 'satisfacen' las propuestas actuales... ¿comentas?

saludos,
hector.

Hola Hector:
Me estoy volviendo loco con este tema.
Tú me habias dicho que volviese a poner
DrawingObjects:=True, _

Pero resulta que no funciona tampoco.

También puse la orden como tú bien dices, con la coma al
final y el guión bajo. Me da error. Me resalta los dos
puntos y el signo igual.

Si quito la orden, seguimos igual que antes. O sea, que
la foto de la primera planilla no la quita.

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.


.

hola hector:
Bueno, parece que funciona pero no del todo.
La cuestión es que funciona si tengo la hoja
desprotegida, aunque igualmente si selecciono el primer
alumno lo hace bien, y si selecciono cualquier alumno que
no tenga la indicación del lugar de la foto, al volver a
seleccionar un alumno con foto, no lo hace.

Si protego la hoja, no funciona.

en fin
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.


.

hola, alejandro !

Me estoy volviendo loco con este tema.
Tú me habias dicho que volviese a poner DrawingObjects:=True, _
Pero resulta que no funciona tampoco.

==> no encuentro 'donde' te dije [o 'insinue'] VOLVER 'a poner' DrawingObjects:=True :((

... puse la orden como ... dices ... coma al final y guion bajo ... error ... resalta los dos puntos y el signo igual.
Si quito la orden, seguimos igual que antes. O sea, que la foto de la primera planilla no la quita.

==> 'en resumen' SOLO 'puedes usar' UNA VEZ [al tiempo] LOS ARGUMENTOS DE una funcion 'en la funcion' :\
el codigo 'sugerido' fue:
______
Private Sub Workbook_Open()
Worksheets("Nombre de la hoja").Protect _
PassWord:="MISMA_CONTRASEÑA", _
DrawingObjects:=False, _
UserInterfaceOnly:=True
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
y 'funcionara' SIEMPRE Y CUANDO NO 'existan' mas codigos que 'manoseen' la proteccion de 'esa' hoja :))
y el codigo que intenttas utilizar 'usa' [o 'intenta usar'] DOS VECES el argumento 'DrawingObjects'...
______
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 < 'este' es el que 'sale sobrando' [ademas de NO tener 'continuidad']
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.

p.d. lamento si te he ocasionado alguna 'confusion' por 'falta de claridad' :(

Hola Héctor:
Bueno, creo que ya me doy por satisfecho.
El código funciona bien siempre y cuando no proteja la
hoja. Si la dejo desprotegida, va todo bien.

Con respecto a lo que me dices que no encuentras el
mensaje donde me dijiste que volviese a poner
DrawingObjects:=True, está en el mensaje del día 5 de
enero a las 4:33 PM (Jan 5 2004 4:33PM). De todos modos,
no tiene importancia. Seguro que lo habré entendido mal.

Muchísimas gracias, de verdad, sé que te he tenido con
esto bastante tiempo y me has hechado una mano increíble.
Otros ya me hubiesen mandado al quinto pino... jajaja.

Un abrazo y gracias otra vez.
alejandro