Ver Mensaje Individual
  #11 (permalink)  
Antiguo 15/08/2010, 17:23
Avatar de Pablus00
Pablus00
 
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 21 años
Puntos: 11
Para hacer tu Excel + profesional: Ocultar todas las barras y mas

¿Cómo debo hacer para desactivar una barra de comandos

Esta línea de código se desactiva la barra de menús hoja de cálculo
Application.CommandBars ("Barra de Menú hoja de cálculo"). Enabled = False

Esta línea de código se desactiva la barra de herramientas
Application.CommandBars ("Standard"). Enabled = False

Esta línea de código se deshabilita el menú de la célula (menú al hacer clic derecho en una célula)
Application.CommandBars ("Cell"). Enabled = False

Importante: siempre debe utilizar el nombre Inglés de la barra de comandos en el código.
Si utiliza el nombre local de la barra de comandos no funciona.

Si usted no sabe el nombre de Inglés para una barra de comandos se puede ejecutar esta macro.
Se agregará una nueva hoja de su libro con una lista de todos los nombres (Inglés y local).
------------------------

Para ocultar todas las barras del excel:

Sub Disable_Command_Bars_1()
'This will disable all Command bars
Dim Cbar As CommandBar
For Each Cbar In Application.CommandBars
Cbar.Enabled = False
Next
End Sub

----------------------------------

Ocultar la Barra de Status, y de formula:

Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False


__________________
-- Nunca te des por vencido, aún vencido -- Web