13. Если Вы разрабатываете интерфейс в зависимости от разных ролей пользователей, которым нужно разрешить или запретить редактирование формы, то используйте этот пример.
Private Sub butEdit_Click()
Dim frm As Form
Set frm = [Form_Пример 13 пдч]
frm.AllowAdditions = Me.butEdit 'Разрешить добавление
frm.AllowDeletions = Me.butEdit 'Разрешить удаление
frm.AllowEdits = Me.butEdit 'Разрешить редактирование
If Me.butEdit = True Then 'Если разрешено редактирование
Me.butEdit.Caption = "Отменить редактирование" 'Текст кнопки
Me.butEdit.ForeColor = 255 'Цвет символов
Else
Me.butEdit.Caption = "Включить редактирование"
Me.butEdit.ForeColor = 0
End If
End Sub