General

6.36 Routine per togliere e rimettere la barra dei menu in Access 97
  Giorgio Valsangiacomo
Private Sub toglibarra_click()
   Dim cbarmenu As CommandBar
   Set cbarmenu = CommandBars("menu bar")
   cbarmenu.Enabled = False
End Sub

Private Sub mettibarra_click()
   Dim cbarmenu As CommandBar
   Set cbarmenu = CommandBars("menu bar")
   cbarmenu.Enabled = True
End Sub
Non dimenticare di aggiungere nei "Riferimenti" "Microsoft Office 8.0 Object Library".

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.