Public Function rpProtect() As Boolean
Static S As String, n As Long, TypeWindow As Long

On Error Resume Next
Err.Clear

n = Screen.Application.CurrentObjectType
If Err >  0  Then Exit Function 'на всякий случай
S = Screen.Application.CurrentObjectName

'тип не определен или диалоговая форма
If n = - 1  Then Exit Function

'Тип определен
TypeWindow = n
n = SysCmd(acSysCmdGetObjectState, TypeWindow, S)
If n = 0 Then GoTo TruEnd 'объект не открыт - окно базы

Select Case TypeWindow
Case acTable, acQuery, acMacro, acModule
GoTo TruEnd 'доступ всегда запрещен
Case acForm
S = Screen.ActiveForm.Name
If Err > 0 Then GoTo TruEnd 'форма в окне базы данных
If Forms(S).CurrentView =  0  Then GoTo TruEnd 'форма в конструкторе
Case acReport
S = Screen.ActiveReport.Name
If Err > 0 Then GoTo TruEnd 'отчет в окне базы данных
n = Reports(S).HasData
If Err >  0  Then GoTo TruEnd 'отчет в конструкторе
End Select
Exit Function

TruEnd:
rpProtect = True
End Function

Option Compare Database
Option Explicit

Private Sub Form_GotFocus()
    If (Me.Visible = True) Then
        DoCmd.Quit acQuitSaveNone
    End If
End Sub

Private Sub Form_Open(Cancel As Integer)
    
    Me.Visible = False
    DoCmd.OpenForm  "Некая заставка" , acNormal

End Sub

Private Sub Form_Timer()
    If rpProtect() Then
        DoCmd.Quit acQuitSaveNone
    End If
End Sub