if you are familar with VBA try this

I have two functions, one to hide, and one to show.

(and, if the ribbion is already hidden (or showen), then the function does
nothing).

Public Function ShowReportRibbon()

Dim intRibbonState As Variant

intRibbonState = fReturnRegKeyValue(HKEY_CURRENT_USER, _
"Software\Microsoft\Office\12.0\Common\Toolbar s\Ac cess", _
"QuickAccessToolbarStyle")

If intRibbonState = 4 Then
' ribbon in auto hide state, show it...
SendKeys "^{F1}", False
DoEvents
End If

End Function

Public Function HideReportRibbon()

Dim intRibbonState As Variant

intRibbonState = fReturnRegKeyValue(HKEY_CURRENT_USER, _
"Software\Microsoft\Office\12.0\Common\Toolbar s\Ac cess", _
"QuickAccessToolbarStyle")

If intRibbonState = 0 Then
' ribbon is in full view....hide it...
SendKeys "^{F1}", False
DoEvents
End If

End Function

all the best