Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Netzwerk - Mehrere User schreiben Daten in eine

Netzwerk - Mehrere User schreiben Daten in eine
11.10.2005 18:01:30
Franc
Hi,
ich habe einen Excelblatt was per Mail verschickt wird.
In diesem Excelblatt kann man Daten aufüllen und anschließend per Button in eine zentrale Datei abspeichern lassen.
Jetzt habe ich folgendes Probelm.
Die Datei ist mit einem Lese- und Schreikennwort versehen.
Die 1. freie Zelle finde ich mit [B1000].End(xlUp).Offset(1, 0).Select
(Dies führt bei Mehrfachöffnug sicher zu Problemen)
Wenn ich den Button zum Abspeichern drücke und die Datei in dem Moment von einem anderen geöffnet ist, bekomme ich die Meldung "Wollen sie die vorhandene Datei ersetzen?" (Ich sehe auch das die Datei die geöffnet wird und schreibgeschützt ist (oben neben dem Namen)
Mein Frage ist:
Kann ich herausfinden ob die Mappe im Netzwerk bereits geöffnet ist?
oder
Wenn die Meldung "Wollen sie die vorhandene Datei ersetzen?" kommt soll das Macro die Meldung schließen, die geöffnete Datei ohne weitere Nachfragen und ohne zu speichern schließen und eine Meldung ausgeben.
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Netzwerk - Mehrere User schreiben Daten in eine
11.10.2005 19:19:09
Franc
ist es zu umständlich beschrieben?
Brauch dringend eine Lösung. Arbeitsmappe freigeben wird denk ich nicht helfen.
Gibt es denn keine Möglichkeit eine Hinweismeldung über vba abzufangen? (wenn mir das gelingt ist der Rest leicht)
AW: Netzwerk - Mehrere User schreiben Daten in ein
11.10.2005 20:28:16
Matthias
Hallo Franc,
so findest du vor dem Öffnen heraus, ob die Datei schon exklusiv geöffnet ist:

Function DateiInBearbeitung(s As String) As Boolean
On Error Resume Next
Open s For Binary Access Read Lock Read As #1
Close #1
If Err.Number <> 0 Then
DateiInBearbeitung = True
Err.Clear
End If
End Function
Sub Testen()
If DateiInBearbeitung("C:\Held\Mappe1.xls") = False Then
Workbooks.Open "C:\Held\Mappe1.xls"
Else
MsgBox "Datei ist in Bearbeitung!"
End If
End Sub

Gruß Matthias
Anzeige
AW: Netzwerk - Mehrere User schreiben Daten in ein
12.10.2005 00:56:02
Franc
thx
Werde ich sofort prüfen sobald ich wieder auf Arbeit bin.
AW: Netzwerk - Mehrere User schreiben Daten in ein
12.10.2005 12:59:44
Franc
es funktioniert nicht
Er bringt die Fehlermeldung
Fehler beim kompilieren:
Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft
und markiert dabei DateiInBearbeitung
Ich habe dein Macro nur in einem Punkt abgeändert. (PW ergänzt)
If DateiInBearbeitung("C:\Held\Mappe1.xls", Password:="pass", WriteResPassword:="as") ...
Anzeige
AW: Netzwerk - Mehrere User schreiben Daten in ein
12.10.2005 13:44:35
Matthias
Hallo Franc,
das brauchst du nicht. Um estzustellen, on die Datei schon geöffnet ist, wird kein Passwort genötigt. Sie wird ja nicht als Workbook geöffnet, sondern es wird versucht, sie binär zu öffnen. Diese Funktion klappt mit allen Dateitypen.
Gruß Matthias
AW: Netzwerk - Mehrere User schreiben Daten in ein
12.10.2005 14:31:45
Franc
danke das du nochmal reingeschaut hast. Hatte nciht auf aktualiesieren gedrückt. (deshalb der andere Post von mir)
Anzeige
AW: Netzwerk - Mehrere User schreiben Daten in ein
12.10.2005 14:29:28
Franc
Fehler gefunden. ^^
Man darf bei der Prüffunktion nicht das PW angeben.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige