Access 2007: hide or show Ribbon

Private Sub showRibbon()

    DoCmd.ShowToolbar "Ribbon", acToolbarYes

End Sub

Private Sub hideRibbon()

    DoCmd.ShowToolbar "Ribbon", acToolbarNo

End Sub