VBA/ACCESS 開発モード（リボンとかナビゲーションウインドウ）の切り替え

Public Sub devOff()
    Call setStyle(False, False, False)
End Sub

Public Sub devOn()
    Call setStyle(True, True, True)
End Sub

Public Sub setStyle(isStatusBar As Boolean, isRibbon As Boolean, isNaviWin As Boolean)
On Error Resume Next
    
    Application.CommandBars("Status Bar").Visible = isStatusBar

    'Runtimeが実行されているかSysCmdメソッドで判定
    If Not SysCmd(acSysCmdRuntime) Then
        'Accessがインストールされている場合の処理
        
        'リボン制御
        If isRibbon Then
            DoCmd.ShowToolbar "Ribbon", acToolbarYes
        Else
            DoCmd.ShowToolbar "Ribbon", acToolbarNo
        End If
        
        If isNaviWin Then
            DoCmd.SelectObject acForm, "", True
        Else
            'ナビゲーションを非表示
            DoCmd.SelectObject acForm, "", True
            DoCmd.RunCommand acCmdWindowHide
        End If
        DoEvents
    End If

End Sub