08. Пример 8 показывает защиту базы данных путем скрытия ее объектов: таблиц, запросов, полей
Private Sub butExecute_Click()
Dim dbs As DAO.Database, tdf As DAO.TableDef, fld As DAO.Field, prpLoop As DAO.Property
' Отображаем/гасим невидимые объекты базы данных
Application.SetOption "Show Hidden Objects", CBool(Not Me.flagViewObject)
' DAO - метод
Set dbs = CurrentDb
Me.progress = ""
For Each tdf In dbs.TableDefs
If ((tdf.Attributes And dbSystemObject) = 0) Then
' Отображаем/гасим таблицы пользователя
Me.progress = Me.progress tdf.Name ", Visible=" (Not CBool(Me.flagViewTable)) vbNewLine
Application.SetHiddenAttribute acTable, tdf.Name, Me.flagViewTable
' Отображаем/гасим поля пользователя
For Each fld In tdf.Fields
fld.Properties("ColumnHidden") = CBool(Me.flagViewField)
Next fld
End If
Next tdf
End Sub