Office: Anwendung schließen

Hallo liebe Experten,

ich habe hier ein VBA Code in Access, wo man mittels über ein Button eine Abfrage starten kann.

Die Abfrage lässt sich nur starten, wenn keine 2. Abfrage mit demselben Namen vorhanden ist. Leider wird die Abfrage bei einigen Usern blockiert wenn keine Abfrage gestartet worden ist oder wenn es irgendwo im temporären Ordner liegt.

Wie kann ich das Problem lösen ?

Danke im voraus.

Liebe Güße, marsi


Private Sub Befehl74_Click()
On Error GoTo Err_Meldung

Dim DocName As String
DocName = "Liste Excel"

DoCmd.OpenForm "Hinweis"
DoCmd.OpenQuery "Liste", acViewNormal
DoCmd.RunCommand acCmdOutputToExcel
DoCmd.Close acForm, "Hinweis", acSaveYes
DoCmd.Close acQuery, "Liste"
CurrentDb.Execute "INSERT INTO tbl_Anzahl ( Buttonname, Datum ) SELECT '" & DocName & "', Now;", dbFailOnError

Exit_Befehl74_Click:
Exit Sub

Err_Meldung:

MsgBox "Eine Excel Datei mit dieser Abfrage ist noch offen. Bitte Datei abspeichern oder schließen. "
DoCmd.Close acQuery, "Liste"
DoCmd.Close acForm, "Hinweis", acSaveYes
Resume Exit_Befehl74_Click

End Sub