Option Explicit

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    On Error Resume Next
           If UnloadMode <> 1 Then
        Cancel = True
       End If
End Sub