Ocultar y mostrar barras de herramientas en una hoja

Tengo estas dos macros, la primera esconde la cinta de opciones, la barra de heramientas de acceso rápido y las fichas de la hojas y la segunda las vuelve a mostrar (con esto gano espacio en pantalla). El problema es que me esconde también la barra de herramientas de acceso rápido, como puedo hacer para que me oculte todo lo demás pero me deje la barra de herramientas de acceso rápido.

Sub EsconderMenu()
On Error Resume Next
Application.ScreenUpdating = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFormulaBar = False ' Barra de fórmulas
ActiveWindow.DisplayHeadings = False ' Nombre de Filas y Columnas
For Each barras In Application.CommandBars: barras.Enabled = False: Next
Application.ScreenUpdating = True
End Sub

Sub RestablecerMenu()
On Error Resume Next
Application.ScreenUpdating = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFormulaBar = True ' Barra de fórmulas
ActiveWindow.DisplayHeadings = False ' Nombre de Filas y Columnas
For Each barras In Application.CommandBars: barras.Enabled = True: Next
Application.ScreenUpdating = True
End Sub