............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Quitar opciones de barra menu al abrir libro y reactivarlas al salir

Ver el tema anterior Ver el tema siguiente Ir abajo

Quitar opciones de barra menu al abrir libro y reactivarlas al salir

Mensaje por icehell el Dom Jun 19, 2011 5:38 pm

Me he liado, llevo todo el día con esto y al final ya no sé ni lo que tengo. Como soy nulo en VB pues no me entero de nada. Bueno, abreviando, Abro el Libro y me gustaría que se cerrasen las barras de formulas, fichas de hojas, títulos y cuadrículas; y cuando cierre el Libro se reactiven, más o menos he quitado algo pero me hes imposible quitar la barra de fórmulas y mucho menos aún que se active de nuevo la ficha de hojas.
Es es mi código en ThisWorkBook
Código:

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayWorkbookTabs = True
' Para ocultar las pestañas
'Antes de cerrar el libro reactiva las pestañas de hojas
End Sub



Private Sub Workbook_Open()
       
        Inicio.Show
        Application.Caption = "ICEHELL SOFTWARE S.L."
        Pantalla_Completa
        ActiveWindow.DisplayWorkbookTabs = False
' Para ocultar las pestañas
        Application.DisplayFormulaBar = False
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Unprotect "XXXXXXXXX"
uf = WorksheetFunction.CountA(Range("A5:I25")) * 2 + 24
uf = Range("AB" & uf).Address
ActiveSheet.PageSetup.PrintArea = "$A$5" & ":" & uf
End Sub

avatar
icehell

Masculino Cantidad de envíos : 64
Edad : 43
Ciudad - Pais : Arrecife
Version de Excel : 2010
Fecha de inscripción : 26/11/2010

http://icehellsoftware.260mb.org/

Volver arriba Ir abajo

Quitar cinta de opciones y barras de excel 2007

Mensaje por Edmund8 el Sáb Nov 17, 2012 2:28 pm

Oye, me gustaría saber si tuviste respuesta a tu solicitud, porque ahora yo tengo la misma necesidad. O si lograste mejorar y obtener buen resultado con tu código, si lo me lo podrías compartir, te lo agradeceré muchísimo..!
Salu2.

Edmund8

Masculino Cantidad de envíos : 15
Edad : 42
Ciudad - Pais : Guatemala
Version de Excel : 2007
Fecha de inscripción : 25/11/2010

Volver arriba Ir abajo

Re: Quitar opciones de barra menu al abrir libro y reactivarlas al salir

Mensaje por icehell el Sáb Nov 17, 2012 8:03 pm

Hola Edmund8, hace mucho tiempo de este tema, normalmente buscas los nombres de las barras y las vas desactivando una por una según tu conveniencia.
Con esto obtienes los nombres
Código:
Sub BarrasExcel()

    Dim i
    Dim CmdBar As CommandBar
       
    For Each CmdBar In Application.CommandBars
        i = i + 1
        Cells(i, 1).Value = CmdBar.Name
        Cells(i, 2).Value = CmdBar.NameLocal
    Next CmdBar

End Sub

Vas probando con ellas cambiando esta línea
Application.DisplayFormulaBar = False ;cambiando lo rojo por el nombre de la barra que deseas quitar o bien
Application.CommandBars("Standard").Visible = False ;y por supuesto debes hacer lo mismo pero con True

En este mismo foro puedes encontrar más detalles de como quitar u ocultar Barras de herramientas de Excel.

Una forma más agresiva de hacerlo sería:
En el módulo de thisworkbook pon esto
Código:
Private Sub Workbook_Activate()
    On Error Resume Next

OcultaBarras

End Sub
Private Sub Worksheet_Deactivate()
    On Error Resume Next

MuestraBarras
   
End Sub
Y en un módulo normal
Código:
Sub MuestraBarras()
On Error Resume Next
Application.ScreenUpdating = False
ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")
Application.ScreenUpdating = True
End Sub

Sub OcultaBarras()
On Error Resume Next
Application.ScreenUpdating = False
ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
Application.ScreenUpdating = True
End Sub

También puedes consultar las propiedades en la ayuda de Excel.

Un Saludo,
avatar
icehell

Masculino Cantidad de envíos : 64
Edad : 43
Ciudad - Pais : Arrecife
Version de Excel : 2010
Fecha de inscripción : 26/11/2010

http://icehellsoftware.260mb.org/

Volver arriba Ir abajo

Re: Quitar opciones de barra menu al abrir libro y reactivarlas al salir

Mensaje por Edmund8 el Dom Nov 18, 2012 11:25 am

Muchas gracias icehell, por tu pronta respuesta. Seguiré lo me has recomendado..
Salu2

Edmund8

Masculino Cantidad de envíos : 15
Edad : 42
Ciudad - Pais : Guatemala
Version de Excel : 2007
Fecha de inscripción : 25/11/2010

Volver arriba Ir abajo

Re: Quitar opciones de barra menu al abrir libro y reactivarlas al salir

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.