Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
680to684
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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") ...
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
Anzeige
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)
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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige