Свернуть ленту Office с помощью VBA?

Question

В последнее время я не искал по-настоящему усердно, но в прошлом я искал высоко и низко, чтобы найти способ минимизировать ленту с помощью кода VBA. Для меня большинство моих пользователей не используют ленту в Access, я был бы очень рад, если бы смог вернуть им экранную недвижимость.

Я знаю, что мог бы научить их минимизировать это, но ... ну ... они пользователи, а не компьютерщики. : -)

Answer 1

Если ваша база данных настроена на отображение определенной формы при ее открытии, вы можете поместить этот код в событие открытия формы:

Private Sub Form_Open(Cancel As Integer)
    Call HideRibbon
End Sub

Вот подпункт HideRibbon:

Public Sub HideRibbon()
    'Access versions before 2007 did not have ribbon '
    'ignore error: '
    '2094, <App Name> can't find the toolbar 'Ribbon.'
    On Error Resume Next
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
    On Error GoTo 0
End Sub

Редактировать : Я изменил подпрограмму HideRibbon, чтобы исключить При возобновлении ошибки Далее . Он делает то, что я хочу в Access 2003 и 2007. Не уверен насчет строкового значения, возвращаемого SysCmd (acSysCmdAccessVer) во всех более ранних версиях Access или будущих версиях Access.

Public Sub HideRibbon()
    'Access versions before 2007 did not have ribbon '
    If Val(SysCmd(acSysCmdAccessVer)) >= 12 Then
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
    End If
End Sub