Public Sub startupProperties1() Dim myDatabase As Object Set myDatabase = CurrentDb With myDatabase .Properties.Delete "AllowFullMenus" .Properties.Delete "AllowToolBarChanges" End With Application.RefreshTitleBar End Sub