Cambiar Formato de Excel para un archvo

Hola Héctor Miguel, en el punto 2:

Private Sub Workbook_Activate()
AmpliarVista True
En la instruccion que sigue se detiene la ejecucion, la revision del error
indica:
CommandBars("Nombre de mi Barra...<variable de Objeto o bloque With no
Establecidos>
== CommandBars("Nombre de tu barra").Visible = True
End Sub

Igualmente en la instruccion:

Private Sub Workbook_Deactivate()
AmpliarVista False
CommandBars("Nombre de tu barra").Visible = False
End Sub

Ocurre el mismo error en el mismo punto, que es cuando debe cargar la barra

El paso 3 aun no lo he probado y el paso 1, no se si se ejecuta o no ya que
no carga la barra...

Pero desaparecen las pestañas tambien y el libro tiene 3 pestañas que
necesito que el usuario pueda navegar entre ellas para revisar, e imprimir
informacion.

Comentas???

Saludos.

__ 1 __

Estoy de acuerdo contigo respecto a la Barra Personalizada
se como se adjunta al libro ya que el cuadro de dialogo tiene la opcion
para ello
pero como hago para adjuntarla en el Modulo de codigo del libro
[ThisWorkbook] ???

__ 2 __

Como hago para establecer estos parametros... (_windowsactivate,
_beforeclose, etc)
un ejemplo del codigo completo, con el FullScreen y todo, donde
colocarlos (en que parte del editor de VBA)

__ 3 __

... colocando este codigo en [ThisWorkbook] [Workbook], no se ejecuta el
Macro que realiza un ordenamiento...
... igualmente, al Ejecutar el Macro y luego Salvar o Grabar el archivo,
salgo de Excel, cuando vuelvo a entrar
las celdas pueden ser nuevamente seleccionadas, obviamente no permite la
modificacion
pero quisiera que no se pudiera nisiquiera seleccionar nada en esta hoja
como... cuando coloco la proteccion.
Este punto es el mismo que el anterior, solo probe utilizar el codigo del
punto anterior a ver si resultaba.
Me comentas sobre esto?

te paso los ejemplos al final del presente ;)
si cualquier duda [o algo no funciona como esperas]... comentas ?
saludos,
hector.

1) la barra que adjuntas... YA 'va' adjunta/pegada/... con el libro, no
necesitas adjuntarla por codigo ;)
lo que SI 'necesitas'... es 'desaparecerla' [por codigo] ANTES de salir
de tu aplicacion [p.e.]
en el modulo de codigo del libro [ThisWorkbook] ==> Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
CommandBars("Nombre de tu barra").Delete
End Sub

2) para que la presentacion 'afecte' SOLO cuando el usuario este
utilizando tu aplicacion [el libro entero]...
pega en el modulo de codigo del libro [ThisWorkbook] ==> Private Sub Workbook_Activate()
AmpliarVista True
CommandBars("Nombre de tu barra").Visible = True
End Sub
Private Sub Workbook_Deactivate()
AmpliarVista False
CommandBars("Nombre de tu barra").Visible = False
End Sub
Private Sub AmpliarVista(ByVal Mostrar As Boolean)
With Application
.DisplayFullScreen = Mostrar: .DisplayScrollBars = Not Mostrar
.CommandBars("Worksheet Menu Bar").Enabled = Not Mostrar
End With
End Sub

3) con los siguientes macros de ejemplo... al abrirse el libro... la hoja1
queda protegida SIN opciones de seleccion
las opciones para ordenar [para el usuario] estan deshabilidadas :))
pero... la macro que ordena... corre sin problemas ;)
en el modulo de codigo del libro [ThisWorkbook] ==> Private Sub Workbook_Open()
With Worksheets("Hoja1")
.EnableSelection = xlNoSelection
.Protect _
Password:="Hocus Pocus", _
UserInterfaceOnly:=True
End With
End Sub
y en un modulo de codigo 'normal' [la macro que hace ordenaciones en
la hoja1 ->protegida<-] ==> Sub OrdenaHoja1()
With Worksheets("Hoja1")
.Columns("a:e").Sort _
Key1:=.Range("a1"), _
Order1:=xlAscending, _
Header:=xlYes
End With
End Sub

hola, Carlos Enrique !

... en el punto 2:
Private Sub Workbook_Activate()
AmpliarVista True
> En la instruccion que sigue se detiene la ejecucion, la revision del error indica:
CommandBars("Nombre de mi Barra...<variable de Objeto o bloque With no Establecidos> [...]
El paso 3 aun no lo he probado y el paso 1, no se si se ejecuta o no ya que no carga la barra...
Pero desaparecen las pesta#as tambien y... necesito que el usuario pueda navegar entre ellas [...]

tienes razon :D hay una referencia 'perdida' al objeto 'contenedor' de las barras de menus y herramientas :-(
se me perdio por andar 'escribiendo codigos de memoria' :)) PERDON ;)

=> en los ejemplos que te puse, las lineas que SOLAMENTE dicen...
CommandBars("Nombre de tu barra").Visible = True ' [o False]
=> debieran decir [y corrige por favor]...
Application.CommandBars("Nombre de tu barra").Visible = True ' [o False]

[resulta que 'comi Applicaiton' esta semana] :))

para el caso de las pesta#as que desaparecen... [como el codigo lo copie de una respuesta 'similar']...
elimina la parte que hace referencia a los 'ScrollBars' en la macro de 'AmpliarVista' para que diga...
Private Sub AmpliarVista(ByVal Mostrar As Boolean)
With Application
.DisplayFullScreen = Mostrar
.CommandBars("Worksheet Menu Bar").Enabled = Not Mostrar
End With
End Sub

sorry :))
saludos,
hector.

Hola Héctor Miguel, ahora si, funciono bien lo del formato, pero tiene un
par de detalles que me gustaria saber si pudieran resolverse, uno de ellos
es esencial, que es que las pestañas de las hojas no aparecen y el libro
contiene 3 pestañas que son necesarias ya que en una de las hojas se
introducen datos, y en las otras dos se consultan datos y/o se imprimen
datos.

Elimine como me indicastes la parte que hace referencia a las pestañas, pero
aun asi no aparecen.

Por otra parte, que codigo se puede agregar para que no aprezca la opcion
"Cerrar pantalla completa" que impida volver a habilitar el menu, etc.
Tambien un simbolo que es una flechita hacia abajo que aparece tanto en la
opcion "Cerrar pantalla completa", y en el menu personalizado que al pulsar
en cualquiera de las dos flechitas abre un pequeño menu con la opcion
"Agregar o quitar botones" y al pulsar ahí, abre otro sub-menu
que dice "Pantalla completa" con sub-opcion "Cerrar Pantalla Completa" y
"Restablecer barra de Herramientas"
La otra Opcion del Sub-menu es "Personalizar"

Esto ocasiona que se invalide todo lo logrado con codigo para "desaparecer"
los menus y barra de herramienta.

Y ademas, si le agrego una clave al Editor de Visual Basic, para impedir la
modificacion de los codigos, no funciona adecuadamente.

Se pueden corregir estos detalles con codigo?

Comentas?...

Saludos

... en el punto 2:
Private Sub Workbook_Activate()
AmpliarVista True
>> En la instruccion que sigue se detiene la ejecucion, la revision del
error indica:
CommandBars("Nombre de mi Barra...<variable de Objeto o bloque With no
Establecidos> [...]
El paso 3 aun no lo he probado y el paso 1, no se si se ejecuta o no ya
que no carga la barra...
Pero desaparecen las pesta#as tambien y... necesito que el usuario pueda
navegar entre ellas [...]

tienes razon :D hay una referencia 'perdida' al objeto 'contenedor' de
las barras de menus y herramientas :-(
se me perdio por andar 'escribiendo codigos de memoria' :)) PERDON ;)

=> en los ejemplos que te puse, las lineas que SOLAMENTE dicen...
CommandBars("Nombre de tu barra").Visible = True ' [o False]
=> debieran decir [y corrige por favor]...
Application.CommandBars("Nombre de tu barra").Visible = True ' [o
False]

[resulta que 'comi Applicaiton' esta semana] :))

para el caso de las pesta#as que desaparecen... [como el codigo lo copie
de una respuesta 'similar']...
elimina la parte que hace referencia ae los 'ScrollBars' n la macro de
'AmpliarVista' para que diga...
Private Sub AmpliarVista(ByVal Mostrar As Boolean)
With Application
.DisplayFullScreen = Mostrar
.CommandBars("Worksheet Menu Bar").Enabled = Not Mostrar
End With
End Sub

sorry :))
saludos,
hector.

hola, Carlos Enrique !

__ 1 __

... un par de detalles... uno... es que las pesta#as de las hojas no aparecen...
Elimine como me indicastes la parte que hace referencia a las pesta#as, pero aun asi no aparecen.

__ 2 __

... que codigo se puede agregar para que no aprezca... "Cerrar pantalla completa" que impida volver a habilitar el menu, etc.

__ 3 __

Tambien... una flechita... que aparece tanto en... "Cerrar pantalla completa", y en el menu personalizado que al pulsar... abre [...]
Esto ocasiona que se invalide todo lo logrado con codigo para "desaparecer" los menus y barra de herramienta.
Y ademas, si le agrego una clave al Editor de Visual Basic, para impedir la modificacion de los codigos, no funciona adecuadamente.
Se pueden corregir estos detalles con codigo?

1) las etiquetas de las hojas NO son parte de los codigo que hemos estado viendo [como las barras de desplazamiento] :))
son parte de las opciones 'de la ventana' del libro activo ;) [probablemente]...
en algun momento... al guardar cambios, las etiquetas ya se habian ocultado por la interfase del usuario -?-
-> revisa en [menu] herramientas / opciones / [ficha] ver / [seccion] opciones de ventana -> MARCA 'etiquetas de las hojas' ;)
o... si lo quieres 'asegurar' desde tu mismo codigo... te lo incluyo en un ejemplo al final ;)

2) la barra de herramientas 'pantalla completa', aparece [por omision] cuando se muestra la aplicacion en modo de pantalla completa :-(
te incluyo en el ejemplo la forma de 'mantenerla alejada' :))

3) para el punto 3... 'la cosa'... empieza a no ser 'tan sencilla' como uno quisiera [en una aplicacion tan 'amigable' como lo es excel] :))
para deshabilitar [y mantener deshabilitadas] las caracteristicas que son ->opciones de cada usuario<- como 'personalizar', etc. etc.
requiere de una serie de 'peripecias' y 'sofisticaciones' que... para no aburrirte ahondando los detalles...
visita: http://www.sistemaslym.net/vba/excel/exarc1.html
[no es mucho, ni siquiera 100% 'efectivo' :-(( pero -espero que- podra servirte 'de base'] ;)

saludos,
hector.

las modificaciones/adaptaciones/...
en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_Activate()
AmpliarVista True
Application.CommandBars("Nombre de tu barra").Visible = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub
Private Sub Workbook_Deactivate()
AmpliarVista False
Application.CommandBars("Nombre de tu barra").Visible = False
End Sub
Private Sub AmpliarVista(ByVal Mostrar As Boolean)
With Application
.DisplayFullScreen = Mostrar
.CommandBars("Worksheet Menu Bar").Enabled = Not Mostrar
.CommandBars("Full Screen").Visible = False
End With
End Sub

Hola Héctor Miguel, te comento que inclui y modifique el codigo para
adecuarlo al nuevo codigo que enviastes y es bastante adecuado a lo que
necesitaba, pero aun tengo el problemas con las pestañas de las hojas, sigue
sin aparecer, no se si sera que con la Pantalla Completa, no funciona la
opcion ni el codigo que enviaste que muestra las Pestañas de las hojas.

No se si quizas se podria crear una especie de Menu Personalizado, o agregar
opciones personales al Menu Peronalizado ya creado con los Nombres o el
enlace (link) de cada Pestaña u Hoja???

Comentas???

Saludos.

__ 1 __

... un par de detalles... uno... es que las pesta#as de las hojas no
aparecen...
Elimine como me indicastes la parte que hace referencia a las pesta#as,
pero aun asi no aparecen.

__ 2 __

... que codigo se puede agregar para que no aprezca... "Cerrar pantalla
completa" que impida volver a habilitar el menu, etc.

__ 3 __

Tambien... una flechita... que aparece tanto en... "Cerrar pantalla
completa", y en el menu personalizado que al pulsar... abre [...]
Esto ocasiona que se invalide todo lo logrado con codigo para
"desaparecer" los menus y barra de herramienta.
Y ademas, si le agrego una clave al Editor de Visual Basic, para impedir
la modificacion de los codigos, no funciona adecuadamente.
Se pueden corregir estos detalles con codigo?

1) las etiquetas de las hojas NO son parte de los codigo que hemos estado
viendo [como las barras de desplazamiento] :))
son parte de las opciones 'de la ventana' del libro activo ;)
[probablemente]...
en algun momento... al guardar cambios, las etiquetas ya se habian
ocultado por la interfase del usuario -?-
-> revisa en [menu] herramientas / opciones / [ficha] ver / [seccion]
opciones de ventana -> MARCA 'etiquetas de las hojas' ;)
o... si lo quieres 'asegurar' desde tu mismo codigo... te lo incluyo en
un ejemplo al final ;)

2) la barra de herramientas 'pantalla completa', aparece [por omision]
cuando se muestra la aplicacion en modo de pantalla completa :-(
te incluyo en el ejemplo la forma de 'mantenerla alejada' :))

3) para el punto 3... 'la cosa'... empieza a no ser 'tan sencilla' como
uno quisiera [en una aplicacion tan 'amigable' como lo es excel] :))
para deshabilitar [y mantener deshabilitadas] las caracteristicas que
son ->opciones de cada usuario<- como 'personalizar', etc. etc.
requiere de una serie de 'peripecias' y 'sofisticaciones' que... para
no aburrirte ahondando los detalles...
visita: http://www.sistemaslym.net/vba/excel/exarc1.html
[no es mucho, ni siquiera 100% 'efectivo' :-(( pero -espero que-
podra servirte 'de base'] ;)

saludos,
hector.

las modificaciones/adaptaciones/...
en el modulo de codigo del libro [ThisWorkbook] ==> Private Sub Workbook_Activate()
AmpliarVista True
Application.CommandBars("Nombre de tu barra").Visible = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub
Private Sub Workbook_Deactivate()
AmpliarVista False
Application.CommandBars("Nombre de tu barra").Visible = False
End Sub
Private Sub AmpliarVista(ByVal Mostrar As Boolean)
With Application
.DisplayFullScreen = Mostrar
.CommandBars("Worksheet Menu Bar").Enabled = Not Mostrar
.CommandBars("Full Screen").Visible = False
End With
End Sub