Im Netzwerk exclusiv öffnen. VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro2() Dim Zeit Zeit = Now() + 0.0007 Do Workbooks.Open Filename:="\\Server\Login\ServerLogin.xls" _ , ReadOnly:=False, Notify:=False, AddToMru:=False 'Hier erscheint ein Fenster ... Datei schreibgeschützt öffnen? 'das soll weg. If Not ActiveWorkbook.ReadOnly Then Exit Do End If ActiveWorkbook.Close Loop Until Now() > Zeit End Sub

Function DateiInBearbeitung(s As String) As Boolean Dim ff As Integer On Error Resume Next ff = FreeFile Open s For Binary Access Read Lock Read As ff Close ff If Err.Number <> 0 Then DateiInBearbeitung = True Err.Clear End If End Function Sub Makro2() Const fn = "\\Server\Login\ServerLogin.xls" Const msg = "Warte auf Zugiffsmöglicheit" Range("A1").Value = msg While DateiInBearbeitung(fn) Range("A1").Value = Range("A1").Value & "." Application.Wait Now + TimeValue("00:00:02") '2 sec warten Wend Range("A1").Value = "Datei ist frei und wird geöffnet!" Workbooks.Open Filename:=fn End Sub

Hallo,
das war mein erster Gedanke, als ich mir "Dateiinbearbeitung" angesehen habe. Aber da Arbeitsplätze nahezu gleichzeitig Serverlogin öffnen wollen, es aber eine kurze Zeitspanne zwischen "Dateiinbearbeitung" und ".Open" gibt, bin ich immer noch nicht begeistert. Inszwischen setzte ich vor dem "blöden" Fenster "sendkey".
Meine Schleife:
Do
Application.SendKeys ("{RETURN}")
Workbooks.Open Filename:="D:\Office\Schule\Login\ServerLogin.xls" _
, ReadOnly:=False, Notify:=False, AddToMru:=False, _
IgnoreReadOnlyRecommended:=True '
If Not ActiveWorkbook.ReadOnly Then
Exit Do
End If
ActiveWorkbook.Close
Application.Wait (Now() + TimeValue("0:00:01"))
Loop Until Now() &gt Zeit
M.M. fehlt in VBA ein:
Workbooks.Open Filename, exclusiv

Hallo Kolloge,
ich hab hier Windows 2000 - ich glaube nicht, dass es daran liegt.
Was tust du denn eigentlich, wenn einer der vielen Anwender die Datei offen lässt? Evtl. im Eingabemodus, so dass Routinen, die die Datei automatisch schließen würden, nicht greifen?
Und wenn selbst die Millisekunden Zeitfenster zwischen Prüfen und Öffnen dich nicht zufriedenstellen: Eigentlich ist so eine Anwendung mehr was für eine Datenbank, meinst du nicht?
Oder eine Mappe, welche die vom Benutzer die einzufügenden Daten abfragt und in eine Textdatei speichert, welche später "in aller Ruhe" in die Mappe eingearbeitet werden kann (das geht natürlich nur, wenn der Benutzer nur Daten hinzufügt und keine verändert).
Noch eine Nachfrage wegen einer Äußerung ein paar Einträge weiter oben:
Damit jeder die Datei exclusiv öffnen kann, wurde die Datei mit saveas AccessMode:=xlExclusive gespeichert.
Ist das nicht der Standardmodus, der auch beim "normalen" Speichern verwendet wird?
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Im Netzwerk exclusiv öffnen. VBA

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread