Cambiar Formato de Excel para un archvo

hola, Carlos Enrique !

... aun tengo el problemas con las pesta#as de las hojas, sigue sin aparecer
no se si... con la Pantalla Completa, no funciona la opcion ni el codigo que enviaste que muestra las Pesta#as de las hojas
... quizas se podria crear... Menu Personalizado, o agregar opciones... al Menu Peronalizado ya creado...

-> a menos que 'otras' partes de codigo esten ocultando nuevamente las etiquetas de las hojas...
no 'veo como' es que no pudiera funcionar [despues de haberla probado] la instruccion ultima en el evento '_activate'...
-> ActiveWindow.DisplayWorkbookTabs = True
[sobre todo, si las demas instrucciones estan 'trabajando' como se espera] -?-

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

Este el unico Codigo que hay en el libro, solo existe otro en un modulo que
es un Macro que solo ordena una tabla de datos y no hay referencia alguna a
otra cosa diferente a ese ordenamiento y solo se ejecuta si se da la orden
de ejecutarlo con un Caracter de Control <CTRL>+ O, por lo tanto al abrir
el archivo, solo se ejecuta el codigo que me enviastes.

Codigo en [ThisWorkbook]:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
CommandBars("Mimenu").Delete
End Sub
Private Sub Workbook_Activate()
AmpliarVista True
Application.CommandBars("Mimenu").Visible = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub
Private Sub Workbook_Deactivate()
AmpliarVista False
Application.CommandBars("Mimenu").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

-

Como ves no existe algun detalle adicional...

Comentas alguna posible solucion?

Saludos.

... aun tengo el problemas con las pesta#as de las hojas, sigue sin
aparecer
no se si... con la Pantalla Completa, no funciona la opcion ni el codigo
que enviaste que muestra las Pesta#as de las hojas
... quizas se podria crear... Menu Personalizado, o agregar opciones...
al Menu Peronalizado ya creado...

-> a menos que 'otras' partes de codigo esten ocultando nuevamente las
etiquetas de las hojas...
no 'veo como' es que no pudiera funcionar [despues de haberla probado]
la instruccion ultima en el evento '_activate'...
-> ActiveWindow.DisplayWorkbookTabs = True
[sobre todo, si las demas instrucciones estan 'trabajando' como se
espera] -?-

hola, Carlos Enrique !

... unico Codigo que hay en el libro, solo existe otro en un modulo... un Macro que solo ordena una tabla de datos
... al abrir el archivo, solo se ejecuta el codigo que me enviastes.
Codigo en [ThisWorkbook]: [...]
Como ves no existe algun detalle adicional...
Comentas alguna posible solucion?

he vuelto a probar el codigo propuesto en diferentes situaciones y... no he conseguido que 'falle' :))
incluso, ocultando las etiquetas de las hojas, tanto por codigo [desde otro libro] como por la interfase del usuario...
al 'volver' a 'mi libro'... el evento '_activate' con la instruccion -> ActiveWindow.DisplayWorkbookTabs = True
SIEMPRE vuelve a mostrar las etiquetas de las hojas ;)

si [como dices] estas 'totalmente seguro' de que no existe otro codigo que pudiera 'interferir' en el proceso...
op1: alguna libreria perdida [o da#ada] ?
-> revisa en el editor de vba en [menu] herramienas / referencias...
-> si alguna 'aparece' con la palabra: FALTA... o... MISSING: -?-

op2: prueba modificando ligeramente la instruccion en el evento '_activate'...
de -> ActiveWindow.DisplayWorkbookTabs = True
a ->:
With ActiveWindow
.DisplayWorkbookTabs = Not .DisplayWorkbookTabs
End With

op3: prueba con una macro de 'alternancia' para mostrar/ocultar las etiquetas de las hojas [solo para ver 'si funciona'] p.e.
en un modulo de codigo 'norma' ==Sub Tabs_On_Off()
With ActiveWindow
.DisplayWorkbookTabs = Not .DisplayWorkbookTabs
End With
End Sub

comentas ?
saludos,
hector.

p.d. solo una ligera observacion... modifica la instruccion en el evento '_beforeclose'...
de -> CommandBars("Mimenu").Delete
a -> Application.CommandBars("Mimenu").Delete

hola, Carlos Enrique !

una ligera correccion en la opcion 2 [pase la misma que la opcion 3] :-((

With ActiveWindow
If Not .DisplayWorkbookTabs Then .DisplayWorkbookTabs = True
End With

saludos,
hector.

Hola Héctor Miguel, revise todo lo que indicastes y...

Op1. No existe ninguna libreria dañada o perdida

Op2. Modifique el Codigo y el resultado es el mismo, sin pestañas

Op3. Coloque el Codigo de Alternancia en un Modulo y no muestra las pestañas
en ningun casao, OJO, pero si Cierro la Pantalla Completa si visualizo la
activacion y desactivacion de las pestañas, pienso que el problema debe
estar en usar Full Screen que no permite la visualizacion de las pestañas
aun estando activo esa visualizacion, alguna otra forma de realizarlo
obteniendo un resultado parecido respecto al aspecto, pero visualizando las
pestañas o como tedije en un post anterior, la posibilidad de crear un menu
con enlaces a las diferentes pestañas, no se si eso sea posible...

Con respecto a la PD:
Al realizar el cambio indicado:

de -> CommandBars("Mimenu").Delete
a -> Application.CommandBars("Mimenu").Delete

...cuando voy a cerrar el archivo me da un error en el codigo

Private Sub Workbook_Deactivate()

...en la linea "Application.CommandBars("Mimenu").Visible = False"

El error indica "Argumento o llamada a procedimiento no valido"

Comentas?

Saludos.

una ligera correccion en la opcion 2 [pase la misma que la opcion 3] :-((

With ActiveWindow
If Not .DisplayWorkbookTabs Then .DisplayWorkbookTabs = True
End With

saludos,
hector.