Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abfrage ist datei geöffnet, wenn nicht dann öffnen

Abfrage ist datei geöffnet, wenn nicht dann öffnen
Hans-Werner
Guten Abend
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Abfrage ist datei geöffnet, wenn nicht dann öffnen
Ramses
Hallo
bei deiner Qualifikation "Excel Profi - VBA gut" sollte das doch kein Problem sein ;-)
If MappeOffen("N:\Start.xls\" & DatNam) = True Then
Gruss Rainer
AW: Abfrage ist datei geöffnet, wenn nicht dann öffnen
Hans-Werner
Danke
für deine Antwort Rainer
Aber bei Excel-Profi habe ich wirklich die falsche Zeile angetippt
dazu wird gleich ein Spruch war den ich hier vor einiger Zeit gelesen habe
""man sollte nicht mit den Adlern fliegen wollen, wenn man als Ente auf dem Boden watschelt""
Grusss und gute Nacht
H.W. Schmidt
Merci ;-) Geschlossen o.T.
Ramses
...
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige