用vba判断功能区的状态，在access 2007中可以用以下代码实现：

Function RibbonIsMinimised() As Boolean
    Dim sngHeight As Single
    
    sngHeight = Application.CommandBars("Ribbon").Height
    CommandBars.ExecuteMso "MinimizeRibbon"
    DoEvents
    RibbonIsMinimised = Application.CommandBars("Ribbon").Height > sngHeight
    CommandBars.ExecuteMso "MinimizeRibbon"
End Function


Sub Test()
    If RibbonIsMinimised Then
        MsgBox "Minimised"
    Else
        MsgBox "Maximised"
    End If
End Sub

在access 2010、2013及2016中可以直接用CommandBars.GetPressedMso("MinimizeRibbon")来判断功能区的状态：

Sub 显示功能区状态()
    If CommandBars.GetPressedMso("MinimizeRibbon") Then
        MsgBox "功能区目前处于最小化状态。"
    Else
        MsgBox "功能区目前处于最大化状态。"
    End If
End Sub