Security Warning per VBA bestätigen
24.11.2008 17:49:00
Lars
Ich öffne mittels VBA aus Excel eine Access DB. Beim Öffnen der Access DB erhalte ich ein Fenster zur Security Warning von Makro Code. Ich kann "Cancel, Open, More Info" auswählen. Nun möchte ich automatisch in meinem VBA Excel Code diese Meldung mit "Open" bestätigen. Wie geht dies?
bisheriger Code
Sub CallAccessMacro()
Dim accApp As Object
Dim sFile As String
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Access-Datenbank wurde nicht gefunden!"
Else
Set accApp = CreateObject("Access.Application")
accApp.OpenCurrentDatabase sFile
accApp.Run "Meldung"
accApp.CloseCurrentDatabase
Set accApp = Nothing
End If
End Sub
Vielen Dank für Eure Hilfe!
Gruß Lars
Anzeige