Datei öffnen, die schon offen ist
02.08.2007 11:48:00
mtremer
hier habe ich mal wieder eine Frage für die Profis.
mit folgendem Code erstelle ich einen Ordner (sofern er noch nicht existiert) und kopiere eine Datei dorthin (sofern sie dort noch nicht existiert):
Private Sub CommandButton1_Click()
Sheets("Vorlage").Range("A21:M21").Copy
Dim Fso, Dateiname
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "I:\Ordner1\Ordner2\Ordner3\Test.xls"
MakeSureDirectoryPathExists "I:\Ordner1\Ordner2\Ordner3
If Not Fso.FileExists(Dateiname) Then
FileCopy "I:\Ordner1\Ordner2\Ordner3\Test.xls"
End If
Workbooks.Open (Dateiname)
End Sub
Auf dieses Laufwerk haben noch andere Personen Zugriff. Wenn jemand die Datei Test.xls offen hat, soll eine Massagebox kommen, die den Namen des Users zeigt.
Ist das möglich?
Danke.
Viele Grüße
Marco