Using VBA to minmize ribbon

Hello,
I was wondering if there was possible to minimize the ribbon using VBA when the workbook opens, I have the code

Please Login or Register  to view this content.

but this hides the ribbon, it does not simply minimizes it.

Thank!

EDIT: I want to do the same thing as CTRL+F1

works great! thanks