ich verwende folgenden Code, um beim Öffnen einer Datei deren Speicherort zu überprüfen.
Ziel dabei ist es sicherzustellen, dass nur die Originaldatei verwendet, nicht aber eine Kopie mit anderem Namen oder Speicherort (da nur die Originaldatei laufend aktualisiert wird).
Leider funktioniert mein Code irgendwie nicht, d.h. die Datei lässt sich auch beim Kopieren in andere Ordner problemlos öffnen.
Kann mir jemand helfen ? :)
Option Explicit
Const VALID_FILENAME1 As String = "C:\Users\Notebook\Desktop\My Documents\test1.xlsm"
Const VALID_FILENAME2 As String = "C:\Users\Notebook\Desktop\My Documents\test2.xlsm"
Private Sub Workbook_Open()
If Me.FullName VALID_FILENAME1 And Me.FullName VALID_FILENAME2 Then
MsgBox "Das ist nicht die Originaldatei."
Me.Close False
End If
End Sub
LG und vielen Dank im Voraus,
Tina