wie kann ich verhindern, daß eine Datei woanders als im
bestehenden Pfad gespeichert werden kann ?
ich find in der Recherche nichts (oder bin zu doof).
Gruss Opalu
Private Sub Workbook_Open()
With ThisWorkbook
If .Path "DerRichtigePfad" Then
MsgBox "Die Datei befindet sich nicht im richtigen Verzeichnis und wird _
ungespeichert wieder geschlossen.", vbExclamation, "Hinweis"
.Close False
Exit Sub
End If
End With
End Sub
Das Prüfen auf richtige Verzeichnisauswahl während "SpeichernUnter" halte ich für unmöglich, denn...