[VBA Access/Excel 2003] mdb wordt 2 keer geopend met fout

[Gulf_5]

Terug van vakantie, weer aan t werk, en we gaan weer lekker VBA-en.

Mijn vraag is de volgende:

ik heb in Excel een snelkoppeling gemaakt (grafisch icoontje met een hyperlink naar een *database*.mdb bestand) Bij klikken van dit icoon wordt (uiteraard) het bestand opgestart.

In dit bestand bevindt zich een AutoExec module die dus automatisch enkele handelingen gaat uitvoeren.
Hieronder volgt de code:

code:

Function runmacroonstartup()

    If MsgBox("Do you want to start import procedure for KANA response?", vbYesNo, "Start KANA import Procedure") = vbYes Then
        GoTo Macrovervolg1
        Else
    If MsgBox("Do you want to use the database-file anyway?", vbYesNo, "Use file anyway?") = vbYes Then
        Exit Function
        Else
        Application.Quit
    End If
    End If

Macrovervolg1:
    DoCmd.OpenTable "kana import from txt", acViewNormal, acEdit
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
    DoCmd.Close
    DoCmd.TransferText acImportDelim, "kana import", "KANA import from txt", "G:\Reporting\Projects\KANA Response DB\Marnix\SIMULATIEFOLDER\OUTPUT EXCEL VOOR INPUT ACCESS\KANA import weekly.txt", False
    MsgBox "Importing Successfully completed, program to be terminated", vbOKOnly, "Success"
    Application.Quit
    
End Function

Het probleem is nu dat als ik op de knop klik voor het starten van de database ik eerst een security warning krijg:

Security Warning:
Opening path/filename.mdb
This file may not be safe bla bla... [knip]
cancel / open / more info
Klik op open en dan gaat t een en ander draaien...
Do you want to ...[knip]
Klik op YES, waarna de code wordt uitgevoerd

(als ik hier op NO klik, krijg ik de vraag of ik alsnog met het bestand wil werken (bijvoorbeeld bewerken), bij YES = Exit Sub, file is open, bij NO = Application.Quit -> werkt gewoon)

Volgens de code hoort het programma aan t einde van de bewerking een melding te geven en daarna af te sluiten...
De melding komt echter in de achtergrond tevoorschijn... deze roep ik naar voren, waarna het programma dan alsnog hoort af te sluiten. Ik krijg nu een tweede melding van Office:

Opening path/filename.mdb
Some files can contain viruses or otherwise etc etc... [knip]
would you like to open this file?
OK of Cancel

Met OK wordt het bestand en dus de hele macro OPNIEUW gestart en met Cancel wordt de file afgesloten maar blijft Excel open staan.

Waar komt het op neer: de mdb wordt 2 keer achter elkaar gestart. Dit mag uiteraard maar 1 keer gebeuren. Ik krijg 2 keer de security warning en moet veel te vaak klikken.

Gevraagd aan de kenners:
* hoe komt t dat ie 2 keer gestart wordt en hoe schakel ik dit uit.
* kan ik (als ie 1 keer start) ook de security warning via de macro omzeilen, en zo ja hoe?

Hoop dat het duidelijk is, alvast bedankt !


Note: het gaat hier om hetzelfde bestand als in : Gulf_5 in [VB6][Excel2003] Access File openen vanuit Excel macro
Ik had het idee dat het hier om een ander probleem ging, en omwille van de overzichtelijkheid dus een nieuw topic aangemaakt, hoop dat dat ok is...

[Boss]

Ik zou allereerst de security warning uitzetten, misschien dat het andere probleem dan ook meteen is verholpen:

Menu extra -> Macro's -> Beveiliging

en dan instellen op laag. Dit moet je (volgens mij) per computer instellen waarop de database gebruikt wordt.

[Gulf_5]

de beveiliging MOGEN we hier binnen het bedrijf niet lager instellen... dus dat is jammer...
maar ik heb zelf nog wat research gedaan en heb het probleem opgelost.
In plaats van de snelkoppeling om de mdb te openen te gebruiken heb ik toch via VBA een code weten te schrijven die de access file opent...

[onkl]

En dat verhielp het probleem volledig?
(just checking, voor 't archief)

[Gulf_5]

ik denk dat het meer als een workaround te kwalificeren is... maar het werkt wel en het probleem lijkt helemaal verdwenen...
dus voor t archief -> kom maar op met dat slotje