Datei von anderen Anwendern geöffnet?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Datei von anderen Anwendern geöffnet?
von: sahin
Geschrieben am: 16.05.2002 - 16:04:02

Wie kann ich prüfen, ob eine bestimmte Exceldatei bereits von einem anderen Anwender in Benutzung ist?

Dank im voraus.


nach oben   nach unten

Ist eine Datei von anderen Anwendern geöffnet?
von: Any Body
Geschrieben am: 16.05.2002 - 16:37:23

Damit mehrere Schreibrechte haben, muss sie "freigegeben" sein.
Wer sie in Benutzung hat steht in
"Extras - Arbeitsmappe freigeben"

hth

Any


nach oben   nach unten

Re: Datei von anderen Anwendern geöffnet?
von: WernerB.
Geschrieben am: 16.05.2002 - 19:22:41

Hallo Sahin,

die nachstehende Function und das dazugehörige Makro in ein normales Standardmodul schreiben/kopieren:


Function DateiIstFrei (sDateiname As String) As Boolean
Dim hFile as Integer
    On Error Resume Next
    hFile = FreeFile()
    Open sDateiname Access Read Lock Read Write as #hFile
    If Err Then
      DateiIstFrei = False
    Else
      DateiIstFrei = True
    End If
    Close #hFile
End Function


Sub DateiZustand()
Dim Pfad As String
    Pfad = "D:\Eigene Dateien\Tabellen\Privat\Test.xls"
    If DateiIstFrei(Pfad) = False Then
      MsgBox "Datei ist bereits geöffnet !"
    Else
      MsgBox "Datei ist z.Zt. nicht geöffnet !"
    End If
End Sub


Viel Erfolg wünscht
WernerB.
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Datei von anderen Anwendern geöffnet?"