' Главная программа
 
Private Sub funProtObjects()
Dim tbl As AccessObject, qur As AccessObject, mdl As AccessObject
     ' ADO - метод
 
    On Error Resume Next
    While (Me.Tag = "ON")  ' Замкнутый цикл
 
         ' Защита таблиц, запросов
 
        For Each tbl In Application.CodeData.AllTables
            If Left(tbl.Name,  4 ) <> "MSys" Then  ' Можно проверять часть объектов
 
                If tbl.IsLoaded Then
                    DoCmd.Close acTable, tbl.Name  ' Закрываем таблицу
 
                     'Application.Quit acQuitSaveNone ' Выход из базы
 
                    Me.progress = Me.progress & "Table: " & tbl.Name & ", Time: " & Time() & vbNewLine
                End If
            End If
        Next tbl
         ' Защита таблиц, запросов
 
        For Each qur In Application.CodeData.AllQueries
            If Left(qur.Name,  4 ) <> "MSys" Then  ' Можно проверять часть объектов
 
                If qur.IsLoaded Then
                    DoCmd.Close acQuery, qur.Name  ' Закрываем таблицу
 
                     'Application.Quit acQuitSaveNone ' Выход из базы
 
                    Me.progress = Me.progress & "Query: " & qur.Name & ", Time: " & Time() & vbNewLine
                End If
            End If
        Next qur
         ' Защита модулей, макросов и т.п.
 
        For Each mdl In Application.CodeProject.AllModules
            If mdl.IsLoaded Then
                DoCmd.Close acModule, mdl.Name   ' Закрываем модуль
 
                Me.progress = Me.progress & "Module: " & mdl.Name & ", Time: " & Time() & vbNewLine
            End If
        Next
        DoEvents  ' Обработка событий
 
        Err.Clear
    Wend
End Sub
 '==============================================================
 
 '   Запуск защиты
 
Private Sub butStart_Click()
    If Me.Tag <> "ON" Then
        Me.progress = "Защита установлена!" & vbNewLine
        Me.Tag = "ON"
        funProtObjects
    Else
        Me.progress = Me.progress & "Защита выключена!" & vbNewLine
        Me.Tag = "OFF"
    End If
End Sub