VISTA PRELIMINAR PROPIEDADES

hola, moises !

la "vista previa" que presenta un libro de excel corresponde a la hoja donde se quedo el libro al guardarlo
(posible solucion ?) usa el evento '_beforeclose' de tu libro para seleccionar la hoja de resumen, guardar cambios, y salir
(o algo parecido, ya que comentas que los cambios -al parecer- se graban por macros) -?-

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

__ la consulta original __

tengo un libro con varias hojas (26) a las que les he cambiado el orden y nombre
luego al final del trabajo (se trata de una aplicacion para analisis y calculos de presupuestos de obras)
guardo el libro pero deseo tener una vista preliminar antes de abrirlo (activo la opcion en archivo / propiedades)
pero he notado que solo me presenta un rango (superior izquierdo) de la ultima hoja. Ok, luego...
En esa ultima hoja he colocado una especie de resumen de la obra. todo perfecto mientras guarde el libro estando en esa hoja
pero si estoy en otra (por ej. en la pincipal donde tengo varios botones a manera de menu y por supuesto la opcion guardar
"ya que no uso barra de herramientas") no me actualiza / registra la vista previa. Por que ?
como debo hcer para que estando en otra hoja me guarde la vista preliminar de esa ultima hoja
(guardando por primera vez -con cambio de nombre de archivo o guardando con el mismo nombre) ??
La idea es reflejar el resumen de los cambios realizados... antes de abrir el archivo...

Hola Hector !
Realmente no entiendo...pero en mi caso solo se guarda la vista de la ultima
hoja independientemente de la que este activa .
Probe con un libro en blanco y funciona como tu me indicas se registra la
hoja visible... Por que en en el otro libro no funciona asi ??? acaso tenga
algo que ver con que esten protegidas las Hojas ? o alguna macro ?? solo
tengo lo siguente en beforeclose:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

VBAProject.ThisWorkbook.BuiltinDocumentProperties(1) =
VBAProject.Hoja23.Range("d22")
VBAProject.ThisWorkbook.BuiltinDocumentProperties(5) =
VBAProject.Hoja23.Range("d24")
VBAProject.ThisWorkbook.BuiltinDocumentProperties(7) =
VBAProject.Hoja23.Range("d14")
VBAProject.ThisWorkbook.BuiltinDocumentProperties(18) =
VBAProject.Hoja23.Range("H58")
VBAProject.ThisWorkbook.BuiltinDocumentProperties(9) = "SESIOM OBRAS V1.0"
End Sub

y la ultima hoja (la que deseo como vista previa es la hoja25 cuyo Name es
Hoja6

en el open tengo
Private Sub Workbook_Open()
instrucciones-
For Each n In ThisWorkbook.Sheets
n.Protect userinterfaceonly:=True
Next
instrucciones-
end sub

me ayudas a resolver este problema ???
y...otra duda: porque en el codigo n.Protect userinterfaceonly:=True
no se convierte a n.Protect UserInterfaceOnly:=True (las letras Capitales)
Gracias.
Me alimento del conocimiento de todos


"Héctor Miguel" wrote:

hola, moises !

la "vista previa" que presenta un libro de excel corresponde a la hoja donde se quedo el libro al guardarlo
(posible solucion ?) usa el evento '_beforeclose' de tu libro para seleccionar la hoja de resumen, guardar cambios, y salir
(o algo parecido, ya que comentas que los cambios -al parecer- se graban por macros) -?-

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

__ la consulta original __
> tengo un libro con varias hojas (26) a las que les he cambiado el orden y nombre
> luego al final del trabajo (se trata de una aplicacion para analisis y calculos de presupuestos de obras)
> guardo el libro pero deseo tener una vista preliminar antes de abrirlo (activo la opcion en archivo / propiedades)
> pero he notado que solo me presenta un rango (superior izquierdo) de la ultima hoja. Ok, luego...
> En esa ultima hoja he colocado una especie de resumen de la obra. todo perfecto mientras guarde el libro estando en esa hoja
> pero si estoy en otra (por ej. en la pincipal donde tengo varios botones a manera de menu y por supuesto la opcion guardar
> "ya que no uso barra de herramientas") no me actualiza / registra la vista previa. Por que ?
> como debo hcer para que estando en otra hoja me guarde la vista preliminar de esa ultima hoja
> (guardando por primera vez -con cambio de nombre de archivo o guardando con el mismo nombre) ??
> La idea es reflejar el resumen de los cambios realizados... antes de abrir el archivo...

hola, moises !

(da atras pa'lante) :D

1) lo de las letras capitalizadas (userinterfaceonly:=True => UserInterfaceOnly:=True)...
a) "obedece" a que no se trata de la propiedad de algun objeto o coleccion, sino de un argumento
b) los argumentos siguen las reglas de nombre para las variables declaradas (al modificar una se modifican todas sus instancias)
igual que al usar (p.e.) <Rango>.Sort key1:= ... <= que NO se (auto)capitaliza a Key1:= ... (etc. etc. etc.)

2) lo de la vista previa en las propiedades del archivo...
-> sobre todo, si ya comprobaste su funcionamiento "normal" (en un libro nuevo)

a) la proteccion en las hojas NO afecta la vista previa si la hoja activa al guardarlo esta protegida
b) algun riesgo de corrupcion de "ese" archivo ? (muchas/demasidas caracteristicas especiales -macros/objetos/formatos/...-)
c) alguna macro ??? (probablemente) -> revisa las instrucciones (que no expones)
pudiera ser alguna (re)seleccion de alguna hoja en especifico
y/o que se oculte alguna hoja activa dejando a la vista "la anterior"

-> prueba usando el evento '_beforeclose' (expusiste el '_beforesave') como te sugeria en el mensaje anterior:
"... para seleccionar la hoja de resumen, guardar cambios, y salir"

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

__ la consulta original __

Realmente no entiendo... pero en mi caso solo se guarda la vista de la ultima hoja independientemente de la que este activa.
Probe con un libro en blanco y funciona como tu me indicas se registra la hoja visible... Por que en en el otro libro no funciona asi ?
acaso tenga algo que ver con que esten protegidas las Hojas ? o alguna macro ?? solo tengo lo siguente en beforeclose:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
VBAProject.ThisWorkbook.BuiltinDocumentProperties(1) = VBAProject.Hoja23.Range("d22")
VBAProject.ThisWorkbook.BuiltinDocumentProperties(5) = VBAProject.Hoja23.Range("d24")
VBAProject.ThisWorkbook.BuiltinDocumentProperties(7) = VBAProject.Hoja23.Range("d14")
VBAProject.ThisWorkbook.BuiltinDocumentProperties(18) = VBAProject.Hoja23.Range("H58")
VBAProject.ThisWorkbook.BuiltinDocumentProperties(9) = "SESIOM OBRAS V1.0"
End Sub
y la ultima hoja (la que deseo como vista previa es la hoja25 cuyo Name es Hoja6
en el open tengo
Private Sub Workbook_Open()
instrucciones-
For Each n In ThisWorkbook.Sheets
n.Protect userinterfaceonly:=True
Next
instrucciones-
end sub
... y... otra duda:
porque en el codigo n.Protect userinterfaceonly:=True no se convierte a n.Protect UserInterfaceOnly:=True (las letras Capitales)

Hola Hector !
Gracias.
Pero...quede algo/bastante confundido..
te expues lo que contiene el BeforSave porque es ahi donde tengo algun
codigo que pudiiera ser el causante del problema.
en el BeforeClose solo restituyo las barras de herramientas, restablesco las
asignaciones a teclas con el metodo Onkey y al final ThisWorkbook.Saved = True
asi evito que se vuelva a guardar..
con respecto a la cantidad exagerada de (muchas/demasidas caracteristicas
especiales -macros/objetos/formatos/...-) es bastante cierto. ademas de que
en la hoja principal (Que hace de menu) Hago/tengo una especie de spash (que
contiene imagenes insertradas en la hoja con efectos de cambio de color,
brillo,para producir algunos efectos visuales, etc) y que se activa al
'activar' esa hoja principal usando el "Do events" para permitir seleccionar
los botones (opciones del menu) y que se desactiva al cambiar a otra hoja.

Por que me dices que intente con el beforeclose??
acaso es necesario cerrar el libro para que se registre/cambie/actualize la
vista preliminar??? Yo creí que con guardarlo con el mismo nombre o con uno
nuevo se actualizaba... No es asi ???
Disculpa Hector pero me quedaron unas dudas pendientes en relacion al post:
2003 o 2007 ??
I'm waiting for you... GRACIAS y disculpa de nuevo..





Me alimento del conocimiento de todos


"Héctor Miguel" wrote:

hola, moises !

(da atras pa'lante) :D

1) lo de las letras capitalizadas (userinterfaceonly:=True => UserInterfaceOnly:=True)...
a) "obedece" a que no se trata de la propiedad de algun objeto o coleccion, sino de un argumento
b) los argumentos siguen las reglas de nombre para las variables declaradas (al modificar una se modifican todas sus instancias)
igual que al usar (p.e.) <Rango>.Sort key1:= ... <= que NO se (auto)capitaliza a Key1:= ... (etc. etc. etc.)

2) lo de la vista previa en las propiedades del archivo...
-> sobre todo, si ya comprobaste su funcionamiento "normal" (en un libro nuevo)

a) la proteccion en las hojas NO afecta la vista previa si la hoja activa al guardarlo esta protegida
b) algun riesgo de corrupcion de "ese" archivo ? (muchas/demasidas caracteristicas especiales -macros/objetos/formatos/...-)
c) alguna macro ??? (probablemente) -> revisa las instrucciones (que no expones)
pudiera ser alguna (re)seleccion de alguna hoja en especifico
y/o que se oculte alguna hoja activa dejando a la vista "la anterior"

-> prueba usando el evento '_beforeclose' (expusiste el '_beforesave') como te sugeria en el mensaje anterior:
"... para seleccionar la hoja de resumen, guardar cambios, y salir"

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

__ la consulta original __
> Realmente no entiendo... pero en mi caso solo se guarda la vista de la ultima hoja independientemente de la que este activa.
> Probe con un libro en blanco y funciona como tu me indicas se registra la hoja visible... Por que en en el otro libro no funciona asi ?
> acaso tenga algo que ver con que esten protegidas las Hojas ? o alguna macro ?? solo tengo lo siguente en beforeclose:
> Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
> VBAProject.ThisWorkbook.BuiltinDocumentProperties(1) = VBAProject.Hoja23.Range("d22")
> VBAProject.ThisWorkbook.BuiltinDocumentProperties(5) = VBAProject.Hoja23.Range("d24")
> VBAProject.ThisWorkbook.BuiltinDocumentProperties(7) = VBAProject.Hoja23.Range("d14")
> VBAProject.ThisWorkbook.BuiltinDocumentProperties(18) = VBAProject.Hoja23.Range("H58")
> VBAProject.ThisWorkbook.BuiltinDocumentProperties(9) = "SESIOM OBRAS V1.0"
> End Sub
> y la ultima hoja (la que deseo como vista previa es la hoja25 cuyo Name es Hoja6
> en el open tengo
> Private Sub Workbook_Open()
> instrucciones-
> For Each n In ThisWorkbook.Sheets
> n.Protect userinterfaceonly:=True
> Next
> instrucciones-
> end sub
> ... y... otra duda:
> porque en el codigo n.Protect userinterfaceonly:=True no se convierte a n.Protect UserInterfaceOnly:=True (las letras Capitales)

hola, moises ! (entre tus lineas)...

_____

te expues lo que contiene el BeforSave porque es ahi donde tengo algun codigo que pudiiera ser el causante del problema.
en el BeforeClose solo restituyo las barras de herramientas, restablesco las asignaciones a teclas con el metodo Onkey
y al final ThisWorkbook.Saved = True asi evito que se vuelva a guardar...

-> y... ya que te aseguraste que no se vuelva a guardar...
cuando lo guardas (asumo que por codigo)... te aseguras que la hoja "activa" sea la que necesitas ?

_____

con respecto a la cantidad exagerada de (muchas/demasidas caracteristicas especiales -macros/objetos/formatos/...-) es bastante cierto.
ademas de que en la hoja principal (Que hace de menu) Hago/tengo una especie de spash (que contiene imagenes insertradas en la hoja
con efectos de cambio de color, brillo,para producir algunos efectos visuales, etc) y que se activa al 'activar' esa hoja principal
usando el "Do events" para permitir seleccionar los botones (opciones del menu) y que se desactiva al cambiar a otra hoja.

(dejame regresar a estos puntos del mensaje anterior)...
"-> sobre todo, si ya comprobaste su funcionamiento "normal" (en un libro nuevo)"
" pudiera ser alguna (re)seleccion de alguna hoja en especifico"
" y/o que se oculte alguna hoja activa dejando a la vista "la anterior" (...)

-> no utilizas (quizas) en alguno de tus codigos instrucciones del tipo Worksheets("hojaX").Select -???-

_____

Por que me dices que intente con el beforeclose??
acaso es necesario cerrar el libro para que se registre/cambie/actualize la vista preliminar???
Yo crei que con guardarlo con el mismo nombre o con uno nuevo se actualizaba... No es asi ???

-> esta sugerencia es (solo) para asegurarte que la hoja "activa" sea la que necesitas... grabas... y sales (p.e.)
' en el modulo de codigo de tu libro ...
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Worksheets("hoja2").Select
Me.Save: Me.Close
End Sub

_____

Disculpa Hector pero me quedaron unas dudas pendientes en relacion al post: 2003 o 2007 ??

-> voy de regreso a la consulta referida :D

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