une recherche google donne ceci
Sub HideQuickAccessTB()
Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
End Sub
To show it, use the next version:
Sub ShowQuickAccessTB()
Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"
End Sub