Redigere egenskaber på alle formularer

Du skal åbne dem i design for at kunne ændre disse egenskaber. Desuden er samlingen Forms kun de allerede åbne formularer. Prøv dette i stedet:
Dim frm as Form
Dim n as long
For n = 0 To CurrentProject.AllForms.Count - 1
    DoCmd.OpenForm CurrentProject.AllForms(n).Name, acDesign, , , , acHidden
    Set frm = Forms(CurrentProject.AllForms(n).Name)
    frm.AllowAdditions = False
    frm.AllowEdits = False
    frm.AllowDeletions = False       
    Set frm = Nothing
    DoCmd.Close acForm, CurrentProject.AllForms(n).Name, acSaveNo
Next n

hov...sidste linie skulle selvfølgelig slutte med acSaveYes således:
DoCmd.Close acForm, CurrentProject.AllForms(n).Name, acSaveYes

Super! Det virker som det skal.