diesen Makro habe ich mir beim „durchackern“ des Archiv´s selber zusammen geschustert.Der Makro besagt, das die Datei nur vom Laufwerk E:\Text zu laden ist. Liegt diese Datei nicht auf diesem Laufwerk, öffnet sich die MsgBox und nach dem klick´ auf OK schließt sich die Datei sofort.
Klappt auch einwandfrei.
Sub Workbook_Open()
If ThisWorkbook.Path <> "E:\Text" Then
MsgBox "Hallo " & Application.UserName & Chr(13) & _
"die Datei kann nicht geöffnet werden," & Chr(13) & _
"da versucht wird sie vom Laufwerk " & Chr(13) & _
Path & " zu laden !" & Chr(13) & _
"ein schöner Gruß vom Autor der Datei ! ! ", 0 + 64, "das war einmal !!!!"
ThisWorkbook.Close False
End If
End Sub
Ich krieg ne´ Krise weil ich folgendes nicht zum laufen kriege:
3 Kollegen (Klaus, Christian, Peter) sollen sich in ein Laufwerk, welches nicht vorgegeben ist,
die Datei abspeichern können, und es trotzdem wieder laden können – egal aus welchem Laufwerk / Ordner.
Ich habe schon alles mögliche mit ElseIf und anderen Makro´s versucht – vergeblich.
Es wird warscheinlich so sein, wenn ich die eventuelle Lösung sehe „werde ich mich vielleicht an
den Kopf packen ...“
Gruß Peter