You can hide/unhide the ribbon completely:
DoCmd.ShowToolar "Ribbon", acToolbarNo
There's a programmatic way of minimizing the ribbon using a couple of APIs but I can't find the code at the moment. I've not done anything Access in a long while. If I find it I will let you know.