Ist es möglich ein Makro automatisch zu starten wenn sich die geöffnete Datei nur in einem bestimmten Verzeichnis befindet?
Also z.B. wird die Datei Stundenzettel-22012018 die im Verzeichnis C:\Dokumente\Stundenzettel liegt mit Excel geöffnet soll das Makro automatisch starten.
Wird die Datei Stundenzettel-22012018 die im Verzeichnis C:\Dokumente\Urlaubsantrag liegt mit Excel geöffnet soll das Makro nicht starten.
Falls es möglich ist wie sieht der VBA Code für diese Anweisung aus?
Über eine Anwort würde ich mich sehr freuen!
Beste Grüße
Meine VBA Ansatz ist: klappt nicht, öffnet sich auch im Ordner Urlaubsantrag,
sollte aber nicht! Wenn die Datei versehentlich vom Server dort landet!
Geht das?
Sub auto_open()
On Error Resume Next
Dim Speicherdat$, Result
Application.ActiveSheet.Range "C\Dokomente\Stundenzettel\Stundenzettel-09022018.Select"
Speicherdat$ = Cells(2, 3)
Result = MsgBox("Letzter Eingabetag:" + Chr(10) + Speicherdat$ _
+ Chr(10) + "Datum aktualisieren? ", 4)
If Result = vbYes Then
Cells(9, 3) = Format(Date, "Long Date") + "," + Format(Time, "Long Time") + " Uhr"
End If
If ActiveWorkbook.Path "C:\Dokumente\Stundenzettel\Stundenzettel-09022018.Select" Then
Exit Sub
End If
End Sub