ich möchte gerne beim Öffnen einer Tabelle den aktuellen Pfad abgleichen und habe es mit folgendem Code probiert - leider klappt es damit nicht und ich erhalte eine Fehlermeldung.
Eigentlich soll nur überprüft werden, ob der aktuelle Dateipfad mit einem der hinterlegten übereinstimmt.
Fall ja, soll die Tabelle normal geöffnet werden, fall nein, soll das Sub "UnauthorizedActions_Msg" aufgerufen werden.
Mein Problem ist, dass sich der Dateiname ändern darf und nur der restliche Pfad mit den Vorgaben übereinstimmen muss, wodurch ich eine Konstante wohl nicht verwenden kann.
(Ziel ist es, dass man die Datei zwar umbenennen kann, jedoch nur in bestimmten Ordnern speichern kann.)
Private Sub Workbook_Open()
Dim Valid_Filename1 As String
Valid_Filename1 = "C:\Users\Notebook\Desktop\DATEINAME.xlsm"
Dim Valid_Filename2 As String
Valid Filename2 = "C:\andererPfad\DATEINAME.xlsm"
If Me.FullName Valid_Filename1 And Me.FullName Valid_Filename2 Then
Call UnauthorizedActions_Msg
Me.Close False
End If
End Sub
Kann mir jemand damit weiterhelfen ?
Bin Euch für jede Hilfe dankbar !
VG,
Marc