Commandbar

Revisa el siguiente enlace:

http://support.microsoft.com/defaul...3552/en-us

Saludos,
KL


"Ángel Rubio" wrote in message news:

Hola.

Me gustaría ocultar las barras de herramientas cuando se abre un formulario y volver a restaurarlas cuando se cierra, porque
supongo que al volver a abrir excel las barras de herramientas no estarán.
Entonces, tengo que poner código en el evento Open y también en el Close, pero lo que no sé es cómo se llaman las barras de
herramientas para incluirlas en el código

Application.CommandBars("").Visible = False

Entre comillas va el nombre de la barra de herramientas, pero cuáles son los nombres, no he conseguido verlos...

Gracias por vuestra ayuda

Ángel R.

Prueba con los siguientes procedimientos. En el primero se crea un archivo
Barras.txt en C:, en el cual se registra el nombre de las barras de la sesión
activa, al tiempo que se cierran. En el segundo se abre el archivo
Barras.txt, y se abren las barras del mismo.

Otra posibilidad sería que en lugar de crear un archivo, utilizaras una hoja
oculta para registrar las barras...

Sub OcultarBarras()
Dim N As Integer
For Each Barra In Application.CommandBars
If Barra.Visible And Barra.Name <> "Worksheet Menu Bar" Then N = N + 1
Next Barra
If N > 0 Then
Open "C:\Barras.txt" For Output As 1
For Each Barra In Application.CommandBars
If Barra.Visible And Barra.Name <> "Worksheet Menu Bar" Then
Write #1, Barra.Name
Barra.Visible = False
End If
Next Barra
Close #1
End If
End Sub

Sub MostrarBarras()
Dim Barra As String
Open "C:\Barras.txt" For Input As 1
Do While Not EOF(1)
Input #1, Barra
Application.CommandBars(Barra).Visible = True
Loop
Close #1
End Sub




"Ángel Rubio" escribió:

Hola.

Me gustaría ocultar las barras de herramientas cuando se abre un formulario
y volver a restaurarlas cuando se cierra, porque supongo que al volver a
abrir excel las barras de herramientas no estarán.
Entonces, tengo que poner código en el evento Open y también en el Close,
pero lo que no sé es cómo se llaman las barras de herramientas para
incluirlas en el código

Application.CommandBars("").Visible = False

Entre comillas va el nombre de la barra de herramientas, pero cuáles son los
nombres, no he conseguido verlos...

Gracias por vuestra ayuda

Ángel R.

Si lo que pretendes es simplemente que no se vean, prueba con:
Application.DisplayFullScreen = True

Un saludo desde Tenerife.
*****************************
"Ángel Rubio" escribió en el mensaje
news:

Hola.

Me gustaría ocultar las barras de herramientas cuando se abre un
formulario y volver a restaurarlas cuando se cierra, porque supongo que al
volver a abrir excel las barras de herramientas no estarán.
Entonces, tengo que poner código en el evento Open y también en el Close,
pero lo que no sé es cómo se llaman las barras de herramientas para
incluirlas en el código

Application.CommandBars("").Visible = False

Entre comillas va el nombre de la barra de herramientas, pero cuáles son
los nombres, no he conseguido verlos...

Gracias por vuestra ayuda

Ángel R.