Можно ли после сворачивания-разворачивания окна приложения выводить диалоговое окно с именем текущего пользователя и строкой для ввода пароля? Допустим, пошел пользователь покурить, свернул окошко - и уже никто ничего лишнего от его имени не натворит...

Спасибо, попробую. Да, действительно, я забыл сразу поставить вопрос "как"? Но сообразительные сами догадались. Хранитель экрана здесь не помощник, т.к. выполнение других задач на этом компе тоже имеет место.

Попробовал отловить Resize:

Private Sub Form_Resize()
Dim frmSearchConditions As Form
Dim Width As Single

If Application.Visible = True Then
If Width = 10773 Then
MsgBox "Форма развернута", vbOKOnly
Else
MsgBox "Форма свернута", vbOKOnly
End If
Else
End If
End Sub

Но сообщения появляются только во время загрузки приложения. А потом сворачивай-разворачивай - ничего не происходит :(

Наверное, тут Resize не поможет. Собственно, изменения размеров формы тут нет. Имеет место быть сворачивание и разворачивание окна приложения. И, кажется, тут без WinAPI не обойтись...

Если это кому-то еще интересно...
Открываем при загрузке форму как скрытую и прописываем в ней:

Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 1000
End Sub

Private Sub Form_Timer()

If IsIconic(Application.hWndAccessApp) Then
Let lngIsIconic = 1
Else: IsZoomed (Application.hWndAccessApp)
If lngIsIconic = 1 Then
Call CheckPassword
If strInput <> strOldPassword Then
Call CheckPassword
Else

End If

Let lngIsIconic = 0
Else
End If
End If

End Sub

Создаем глобальный модуль и туда:
Option Compare Database
Option Explicit

Public lngIsIconic As Long
Public strInput As String
Public strOldPassword As String

Public Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long

Public Function IsCurrentPwd(strInput As String) As Boolean
On Error Resume Next
Err = 0
DBEngine(0).Users(CurrentUser()).NewPassword strOldPassword, strInput
IsCurrentPwd = (Err = 0)
End Function

Public Sub CheckPassword()
Dim strMsg As String

strMsg = "Ââåäèòå Âàø ïàðîëü:"
strInput = InputBox(Prompt:=strMsg)

Call IsCurrentPwd(strInput)
End Sub

Вот еще бы пароль в InputBox отобразить звездочками и было бы совсем хорошо...

Пардон.
strMsg = "Ââåäèòå Âàø ïàðîëü:"
это конечно
strMsg = "Введите Ваш пароль:"