Quitar barra de herramientas en office 2007
Hola Edwinhenao, de antemano te agradezco cualquier ayuda que me puedas brindar. Me surge una duda y es que quiero quitar la barra de herramientas mediante una macro
yo estoy utilizando la siguiente para 2003
Sub auto_open()
Worksheets("INGRESO").Activate
ActiveWindow.DisplayWorkbookTabs = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Borders").Visible = False
Application.CommandBars("Control Toolbox").Visible = False
Application.CommandBars("Forms").Enabled = False
On Error Resume Next
For i = 1 To 10
Application.CommandBars("Worksheet Menu Bar").Controls(1).Delete
Next i
End Sub
Pero para office 2007 no funciona, ¿qué puedo hacer para que me funcione?. Gracias amigo.
yo estoy utilizando la siguiente para 2003
Sub auto_open()
Worksheets("INGRESO").Activate
ActiveWindow.DisplayWorkbookTabs = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Borders").Visible = False
Application.CommandBars("Control Toolbox").Visible = False
Application.CommandBars("Forms").Enabled = False
On Error Resume Next
For i = 1 To 10
Application.CommandBars("Worksheet Menu Bar").Controls(1).Delete
Next i
End Sub
Pero para office 2007 no funciona, ¿qué puedo hacer para que me funcione?. Gracias amigo.
1 Respuesta
Respuesta de edwinhenao
1
En Office 2007 no existen las barras de herramientas, que te parce utilizar fullScreen...
Sub conFullScreen()
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
Application.DisplayScrollBars = False
End Sub
Sub conFullScreen()
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
Application.DisplayScrollBars = False
End Sub
