Office: (Office 2013) Excel Datei an einen Ordner binden

Hallo Zusammen,



Gibt es eine Möglichkeit das man eine Excel Makro Datei so einstellt das es nur in einem vorgegebenen Ordner läuft ?

 

Hallo,
eine von diversen Möglichkeiten. Mit der Abfrage If varPfad = varOrdner Then kann man jedes relevante Makro Ausführen oder Beenden.
in ein allgemeines Modul:

Code:

Option Explicit

Sub Startabfrage()
    Dim varOrdner$, varTrue$, varPfad$
    varOrdner = "D:\.....\irgendwie"    ' zulässiger Pfad anpassen
    varPfad = ThisWorkbook.Path
    If varPfad = varOrdner Then
        TestAusgabe
    Else
        MsgBox "Die Datei liegt im Ordner " & varPfad & ". Die Ausführung der Prozedur TestAusgabe wurde erfolgreich verhindert."
    End If
    

End Sub

Private Sub TestAusgabe()
    MsgBox "Diese Datei liegt in einem zur Ausführung dieser Prozedur zulässigen Verzeichnis"
    
End Sub

ins Modul "diese Arbeitsmappe":

Code:

Private Sub Workbook_Open()
    Startabfrage
End Sub

Gruß Uwe

 

Hallo Uwe,

erstmal danke für Deine Hilfe. Habe noch eine Änderung wenn es möglich ist.

Es wäre super dann keine Meldung angezeigt wird wenn die Datei im zulässigen Ordner liegt.
Und wenn sie nicht in diesem liegt soll die Meldung erscheinen und die Datei zum Schutz geschlossen werden.

 

Moin Merkur,
hier eine Kurzfassung nur in DieseArbeitsmappe:

Code:

Option Explicit

Private Sub Workbook_Open()
If InStr(ThisWorkbook.Path, "Desktop") = 0 Then
    MsgBox "Unzulässiger Speicherort!", , "Bye bye!"
    With Application
        .DisplayAlerts = False
        .Quit
    End With
End If
End Sub

Der Code prüft, ob die Datei in einem Ordner liegt in dessen Pfad Desktop vorkommt. Falls nicht erscheint die Messagebox und nach dem Klick wird die Datei geschlossen. Diese Box ist aber auch das Hintertürchen für versierte XL-Nutzer: Drückt der Nutzer dann Strg+Pause, wird der Code abgebrochen und sowohl der Code wie auch die Datei kann bearbeitet werden. Lass sie einfach weg (auskommentieren mit Hochkomma vor der Zeile oder die Zeile löschen).

Grüße

p.s.@Oilmax Wieso baust Du für jeden Schritt der Prüfung eine eigene Sub?

 

Hallo Bastler,

Danke für Deine Hilfe. Funktioniert wunderbar. Schönen Sonntag noch.

 

Bin ein bisschen großzügiger: Wünsch Dir mind. 'ne schöne Woche ;-) Danke für die Rückmeldung.

 

@d'r Bastler
wie kommst du darauf. TestAusgabe() stellt nur eine Beispielprozedur dar, welche mit erreichen der Zeilbedingung ausgelöst wird. Nicht mehr und nicht weniger. Ausgwertet wird in Startabfrage().

Gruß Uwe

 

@OilMax: Moin Uwe, ich frage mich nur, wieso Du für jeden nächsten Schritt eine neue Sub benötigst, dafür extra ein Modul baust statt die ganze Prozedur einfach in einem Workbook_Open-Makro, ohne Variablen zu konzentrieren.
Grüße