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