die Erweiterung des Makro, die ich vom Heiko und Andreas bekommen habe, klappt genau so wie ich es mir vorgestellt habe !!!
Sub Workbook_Open()
Select Case Application.UserName
Case "Christian", "Klaus“, "Peter"
Exit Sub
Case Else
If ThisWorkbook.Path <> "E:\Text" Then
MsgBox "Hallo " & Application.UserName _
"die Datei kann nicht geöffnet werden," _
"da versucht wird sie vom Laufwerk " _
Path & " zu laden !" _
"ein schöner Gruß vom "" Autor der Datei ! ! """, 0 + 64, "das war einmal !!!!"
ThisWorkbook.Close False
End If
End Select
End Sub
jetzt habe ich noch was.
Die Datei wird Schreibgeschütz geladen, wenn die bearbeitete Datei wieder unter einem anderen
Namen gespeichert wird soll die Datei wieder ganz normal zu Laden sein.
Wie deaktiviert man dann diesen Makro, so das die Datei unter dem geänderten Namen wieder zu Laden ist, egal von welchem Laufwerk und aus welchen Verzeichnis das geschieht ??
Gruß Peter