Hide ribbon keep menu tabs or bar

I was wondering if anyone knows the vba code to hide the ribbon and show only the menu bar? I have tried many different things but still cannot get it to work. Please help!

Respectfully,

J

.
Or were you meaning this :


.
You want this portion to be visible : Home Insert Page Layout Formulas Data Review View Developer

[CODE]
Option Explicit

Private Sub Workbook_Activate()
If Application.CommandBars("Ribbon").Height > 100 Then
SendKeys "^{F1}"
DoEvents
End If
End Sub

Private Sub Workbook_Deactivate()
If Application.CommandBars("Ribbon").Height < 100 Then
SendKeys "^{F1}"
DoEvents
End If
End Sub

[/CODE

Hey Winon ! Good to see you again.