Disable Toolbars (1 Viewer)

[Guus2005]

Public Sub NoToolbars()
'Disable toolbars
    Dim prp As Property
    
    On Error GoTo Err_NoToolbars
    CurrentDb.Properties("AllowBuiltinToolbars") = False
    
    Exit Sub
Err_NoToolbars:
    If Err = 3270 Then 'property not found
      Set prp = CurrentDb.CreateProperty("AllowBuiltinToolbars", dbBoolean, False)
      CurrentDb.Properties.Append prp
    Else
      MsgBox Err.Description
    End If
End Sub

Enjoy!