Public Sub startupProperties() Dim myDatabase As Object Set myDatabase = CurrentDb myDatabase.Properties("AllowFullMenus") = False myDatabase.Properties("Allowtoolbarchanges") = False End Sub