Menu en excel

Solo disponible en BuenasTareas
  • Páginas : 5 (1024 palabras )
  • Descarga(s) : 0
  • Publicado : 22 de noviembre de 2011
Leer documento completo
Vista previa del texto
Como armo un menu en Excel - Microsoft Excel

Page 1 of 3

preguntar

Inicio

Categorías

Preguntas

Respuestas

Expertos

Mapa

Mi Todoexpertos

Inicio > Microsoft Excel > ma_ramirez_r > Como armo un menu en Excel

Como armo un menu en Excel
Respuesta de ma_ramirez_r a jgmar_54 en Microsoft Excel 12/03/2008 11/03/2008 Anuncios Google Estoy armando un tablero conindicadores y quisiera armar un menu para que los usuarios puedan navegar por las hojas directamente. Otras aplicaciones seria que puedn imprimir las hojas preconfiguradas que les preparo. Se que se puede armar un menu propio y a la vez ocultar el de Excel. O sea convertir el Excel en una aplicación. Jorge.

Gestor de tiempo online
Usuario

El gestor de tiempo más fácil delmundo. Obtener una cuentagratuita. www.yast.com

11/03/2008 Si la verdad es que si se puede, lo que debes hacer es primero crear tu menu personal, la forma de accesar a ello es dando un click con el boton derecho del mouse en cualquier parte del menu, luego darle personalizar, luego pinchar la Pestaña (Lengueta, Tab, hoja) que dice "Barra de Herramientas", y elijes el boton que dice Nueva. Te pedira un Nombre, tu ledefines el que quieras, y le das Aceptar. Experto Te aparecera una nueva barra. Luego en la Pestaña que dice "Comandos" , hay una opcion que dice Macros y en la parte derecha te aparecera una carita feliz que debes arrastrar hacia tu nuevo menu. De ahi una vez mas le das click con el boton derecho del mouse a esa carita en donde podrás modificar nombre, la imagen y asociarla a una macro que ya tengashecha. Para que este menu quede asociado al archivo, una vez terminado lo anterior vas de nuevo a la Pestaña que dice "Barras de Herramientas" y das click en el boton que dice "Adjuntar" Seleccionas tu nueva barra y le dices Copiar, asi esta barra estara adjunta siempre a este archivo. Ahora para poder dejar solo ese menu y eliminar las otras barras debes hacer una rutina que debes copiar en elLibro lo que si te recomiendo que en el archivo original crees una nueva hoja y llamala Datos, para dejar ahi grabado las Barras activas que tenga cada usuario y luego al finalizar la macro puedas restaurarlas. 'Esta Macro desactiva todas las barras que tengas activas y te deja 'Solo tu nueva barra personal. Private Sub Workbook_Open() Dim MiBarra As String Dim Linea As Integer Dim Barra As Object DimNomBarra As String Application.ScreenUpdating = False MiBarra = "" 'Aqui defines el nombre de la barra que tu le difiniste Application.CommandBars(MiBarra).Visible = True Linea = 1

http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicacione... 04/09/2010

Como armo un menu en Excel - Microsoft Excel

Page 2 of 3

For Each Barra In Application.CommandBars NomBarra= Barra.Name If NomBarra "Worksheet Menu Bar" And NomBarra MiBarra Then If Barra.Visible = True Then Application.Worksheets("Datos").Cells(Linea, 1) = NomBarra Barra.Visible = False Linea = Linea + 1 End If End If Next Barra With Application .CommandBars("Worksheet Menu Bar").Enabled = False End With Application.ScreenUpdating = True End Sub y tambien esta otra 'Esta Macro Restaura las Barras quetengas por defecto. Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim MiBarra As String Dim NomBarra As String Dim Barra As Object Dim Linea As Integer MiBarra = "" 'Aqui defines el nombre de la barraque tu definiste Linea = 1 Do While Valida = True NomBarra = Worksheets("Datos").Cells(Linea, 1) If NomBarra = "" Then Valida = False Else Application.CommandBars(NomBarra).Visible = TrueWorksheets("Datos").Cells(Linea, 1).ClearContents Linea = Linea + 1 End If Loop Application.CommandBars(MiBarra).Visible = False With Application .CommandBars("Worksheet Menu Bar").Enabled = True End With End Sub En caso que tengas algun problema de que no puedas recuperar los menus ten por ahi un archivo cualquiera que tenga grabada esta rutina en el Libro al Abrirlo. Private Sub Workbook_Open()...
tracking img