Inhabilitar funciones
Hola!
Mi pregunta es la siguiente:
Como hago en Excel para inhabilitar una opción del submenú de la barra de menú principal.
Ejemplo:
Archivo, Edición, Ver, Herramienta,...
¿Cómo hago para inhabilitar esas opciones secundarias o las que yo quiera?
Muchas gracias.
Mi pregunta es la siguiente:
Como hago en Excel para inhabilitar una opción del submenú de la barra de menú principal.
Ejemplo:
Archivo, Edición, Ver, Herramienta,...
¿Cómo hago para inhabilitar esas opciones secundarias o las que yo quiera?
Muchas gracias.
1 Respuesta
Respuesta de georgib
1
Te cuento que para inhabilitar opciones del menú puedes usar código de Visual Basic. Aunque no es nada complicado, te recomiendo que si no estás muy familiarizado con el lenguaje consultes un poquito más antes de ponerlo en práctica, ya que habría que programar CUANDO debes inhabilitar los menúes y CÓMO, y la manera de volver todo atrás.
Si es que estás familiarizado con los objetos y eventos de VBA, te paso un par de rutinas que he sacado de un libro que te van a servir.
Esta llamada "ListMenuInfo" te escribe en una hoja de Excel los nombres y IDs de cada uno de los menúes.
Sub ListMenuInfo()
Row = 2
On Error Resume Next
Cells(1, 1).Value = "Nombre menú"
Cells(1, 2).Value = "ID menú"
Cells(1, 3).Value = "Nombre submenú"
Cells(1, 4).Value = "ID submenú"
Cells(1, 5).Value = "Nombre subitem"
Cells(1, 6).Value = "ID subitem"
For Each Menu In CommandBars(1).Controls
For Each MenuItem In Menu.Controls
For Each SubMenuItem In MenuItem.Controls
Cells(Row, 1) = Menu.Caption
Cells(Row, 2) = Menu.ID
Cells(Row, 3) = MenuItem.Caption
Cells(Row, 4) = MenuItem.ID
Cells(Row, 5) = SubMenuItem.Caption
Cells(Row, 6) = SubMenuItem.ID
Row = Row + 1
Next SubMenuItem
Next MenuItem
Next Menu
End Sub
Esta otra, te permite inhabilitar alguno de estos menúes. En este caso inhabilita el menú Edición/Copiar. Para restablecerlo, cambia "False" por "True".
Sub BloquearMenu()
CommandBars(1).Controls("Edición").Controls("Copiar").Enabled = False
End Sub
Si es que estás familiarizado con los objetos y eventos de VBA, te paso un par de rutinas que he sacado de un libro que te van a servir.
Esta llamada "ListMenuInfo" te escribe en una hoja de Excel los nombres y IDs de cada uno de los menúes.
Sub ListMenuInfo()
Row = 2
On Error Resume Next
Cells(1, 1).Value = "Nombre menú"
Cells(1, 2).Value = "ID menú"
Cells(1, 3).Value = "Nombre submenú"
Cells(1, 4).Value = "ID submenú"
Cells(1, 5).Value = "Nombre subitem"
Cells(1, 6).Value = "ID subitem"
For Each Menu In CommandBars(1).Controls
For Each MenuItem In Menu.Controls
For Each SubMenuItem In MenuItem.Controls
Cells(Row, 1) = Menu.Caption
Cells(Row, 2) = Menu.ID
Cells(Row, 3) = MenuItem.Caption
Cells(Row, 4) = MenuItem.ID
Cells(Row, 5) = SubMenuItem.Caption
Cells(Row, 6) = SubMenuItem.ID
Row = Row + 1
Next SubMenuItem
Next MenuItem
Next Menu
End Sub
Esta otra, te permite inhabilitar alguno de estos menúes. En este caso inhabilita el menú Edición/Copiar. Para restablecerlo, cambia "False" por "True".
Sub BloquearMenu()
CommandBars(1).Controls("Edición").Controls("Copiar").Enabled = False
End Sub
