Abfrage ist datei geöffnet, wenn nicht dann öffnen
Hans-Werner
Folgendes Problem:
Eine zentrale Datei auf dem mehrere User Zugriff habe (N:\Start.xls) soll nur von einem User zur Zeit bearbeitet werden.Jeder Versuch diese Datei zu öffnen soll möglichst unter dem Hinweis "Datei in Arbeit" abgeblockt werden.
Ich habe bereits in der Recherche nachgeschaut und folgendes gefunden mit dem ich aber nicht klarkomme:
:
mit dieser
Function und dem dazugehörigen Makro kannst Du prüfen, ob eine bestimmte Datei bereits geöffnet ist.
Anstelle der MsgBoxes kannst Du natürlich auch die Datei aktivieren bzw. öffnen.
Option Explicit
Function MappeOffen(MappeName As String) As Boolean
Dim StName As String
On Error GoTo Nonexistent
StName = Workbooks(MappeName).Name
MappeOffen = True
Exit Function
Nonexistent:
MappeOffen = False
End Function
Sub DateiZustand()
Dim DatNam As String
DatNam = "Test.xls"
If MappeOffen(DatNam) = True Then
MsgBox "Datei ist bereits geöffnet !"
'hier ggf. Datei aktivieren
Else
MsgBox "Datei ist z.Zt. nicht geöffnet !"
'hier ggf. Datei öffnen
End If
End Sub
:
Frage: Wie muss ich meinen Pfad einbinden (N:\Start.xls)
Vielen Dank im voraus
Hans-Werner Schmidt
Anzeige