Question

我最近没有真正努力搜索，但过去我一直在搜索高低，以找出一种方法来最小化VBA代码的功能区。对我来说，我的大多数用户都没有使用Access中的功能区，如果我能为他们收回屏幕空间，我会非常高兴。

我知道我可以训练他们最小化它但是......好吧......他们是用户，而不是计算机爱好者。： - ）

Answer 1

如果您的数据库设置为在打开时显示特定表单，您可以将此代码放在表单的open事件中：

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子，以消除 On Error Resume Next 。它在Access 2003和2007中执行我想要的操作。不确定所有早期Access版本或将来的Access版本中 SysCmd（acSysCmdAccessVer）返回的字符串值。

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

使用VBA最小化Office功能区？

1 个答案: