Excel - Beim öffnen prüfen ob Datei bereits von anderem Benutzer geöffnet?

Hallo zusammen,

an der Arbeit haben wir ein paar Excel Dateien (auf Netzwerklaufwerk), die zur gleichzeitigen Bearbeitung für mehrere Nutzer freigegeben sind. Das Problem hierbei ist, dass man es beim Öffnen nicht mitbekommt, wenn ein anderer Nutzer die Datei bereits geöffnet hat und bearbeitet. Besonders ärgerlich ist es wenn ein anderer Nutzer die Datei speichert und die Eingaben im gleichen Bereich getätigt wurden, wo man selber was geändert hat.

Ich Frage mich, ob es möglich ist beim öffnen der Datei per VBA MsgBox gewarnt zu werden, falls die Datei bereits von einem anderem Nutzer (wenn möglich gerne mit Namen des Nutzers) geöffnet ist?

Kann mir hier jemand weiterhelfen?

Vielen Dank und viele Grüße

4 Antworten

vad00r

01.04.2020, 21:53

Hallo Fleischtester,

hallo kabbes 69,

vielen Dank für die schnellen Antworten. Leider ist es gewünscht, dass die Datei von mehreren Nutzern (6 Nutzer insgesamt) bearbeitet werden kann. Hier wäre ein Hinweis per VBA MsgBox sehr hilfreich, da man dann weiß, dass die Datei bereits von einem anderen Nutzer geöffnet ist und bearbeitet wird.

Gibt es einen VBA Befehl der das beim öffnen der Datei überprüfen kann?

Gruß

Fleischtester

02.04.2020, 11:38

Moin,

(du solltest mir einen Kommentar schreiben, wenn du möchtest, das ich das lese. So bekomme ich keine Nachricht!) Wir bekommen immer ein Anzeige mit Namen (Anhand des E-Mail Kontos/Accounts) wer die Datei gerade geöffnet hat! ...

"Vielleicht findest du hier eine Hilfe! Da steht dann "Du kannst die Datei nur schreibgeschützt öffnen, 'Michael Müller' bearbeit sie gerade"

https://www.computerwissen.de/office/excel/artikel/schreibschutz-per-vba-erkennen.html

Ansonsten kann man auch versuchen mit einem Passwort zu arbeiten! Vielleicht mach er es dann (Speichern-Dialog/Tools (direkt neben dem Speichern Button)/allgemeine Optionen) ...

Teste einfach mit deinem Kollegen etwas aus! ... (mehr kann ich dir leider nicht helfen!)

Grüße

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

02.04.2020, 20:20

Ist eine Excel Datei offen befindet sich im gleichen Verzeichnis eine Datei mit "~" und dem Excel Dateinamen. Öffnet man diese Datei (ASC II Editor) so findet man den Namen der Person, die die Excel Datei grade geöffnet hat.
Dein Makro muss also prüfen, ob diese Tilden Datei vorhanden ist. Wenn ja, dann das Makro ggf nicht ausführen. Oder einen Clone Erstellen auf dem Anpassungen ablaufen. Wir lösen dieses Problem indem es einen Excel Master gibt und für jeden User eine eigene Satelliten Datei. Einmal pro Tag werden die Satelliten in den Master eingespielt (Makro im Master) hierfür genügt es die Satelliten 'nur lesend' zu öffnen, der User kann an seiner Datei parallel weiterarbeiten.
Will man es "besser" machen setzt man eine Datenbank auf.

kabbes69

01.04.2020, 21:41

Wie dies mit VBA funktionieren könnte, weiß ich nicht.

Bei uns wird dies irgendwie über die Rechte, über Netzlaufwerk gesteuert. Wir speichern sowohl Word als auch Excel auf einem Laufwerk mit 5 Benutzern. Sobald ich eine bereits geöffnete Datei öffne, kann sie von den Anderen nur noch schreibgeschützt geöffnet werden.

Fleischtester

01.04.2020, 21:35

Moin,

haben wir auch, aber bei uns wird angezeigt, wenn ein anderer Nutzer drin ist und nur dieser ist dann schreibberechtigt! Alle anderen können es dann nur schreibgeschützt öffnen! ... (Es kommt eine Meldung "Datei ist nur schreibgeschützt zu öffnen."

Grüße

Woher ich das weiß:eigene Erfahrung

...zur Frage

Excel VBA eine Datei öffnen, andere Datei auch öffnen?

Ich habe in Excel zwei Dateien. Nennen wir Sie A und B.

Wenn ich A öffne, erscheint beim öffnen eine msgbox in der ich gefragt werde, ob ich auch B öffnen will. Drücke ich Yes wird auch B geöffnet.

Private Sub Workbook_Open()

Dim a As Integer

a = MsgBox("B.xlsm auch öffnen?", vbYesNo)

If a = vbYes Then

Workbooks.Open "C:\Users\...\B.xlsm"

Workbooks("A_.xlsm").Activate

End If

End Sub

Das selbe habe ich auch für B erstellt. D. h. ich öffne B und werde gefragt ob ich A öffnen will. Gehe ich auf Yes wird auch A geöffnet.

Soweit klappt alles. Allerdings:

Öffne ich z. B. A, dann werde ich nach B öffnen gefragt, klicke ich auf Yes wird B geöffnet und A aktiviert. Allerdings erscheint mir nun, da B geöffnet wird nochmal die Msgbox mit a = MsgBox("A.xlsm auch öffnen?", vbYesNo). Dies hatte ich ja so festgelegt, falls B geöffnet wird. Allerdings ist dies unsinnig, da A ja bereits offen ist.

Wie kann ich diese zweite MSGbox unterdrücken? D.h. ich öffne A, drücke Yes, B wird geöffnet. Nun soll das Ereignis Private Sub Workbook_Open() für B nicht ausgeführt werden, damit die msgbox ob ich A auch öffnen will nicht erscheint.

MFG

...zur Frage

Wenn ich eine Excel-Datei öffne, so soll diese IMMER als Schreibgeschützt geöffnet werden, ohne einer Nachfrage beim öffnen. Geht das?

Gerne auch eine Lösung per VBA.

...zur Frage

Wie kann ich bei Excel einen Button erstellen der abspeichert?

Hallo,

Ich würde gerne bei Excel einen Button erstellen, der die Excel mappe auf dem Desktop abspeichert. Der Name der Datei soll in Zeile A1 stehen.

Den Button habe ich bereits erstellt. Ich scheitere noch bei dem Makro, weil ich keine ahnung davon habe. Ich habe etwas im Internet gefunden, was meinen Vorstellungen nahe kommt. Ich habe versucht es anzupassen, aber irgendwie klappt das alles nicht.

Sub Schaltfläche1_Klicken()
Dim lw_pfad As String
lw_pfad = ActiveSheet.Range("A1").Value
lw_pfad = InputBox("Geben Sie hier das Laufwerk und den Pfad an, wo die Datei gespeichert werden soll." & Chr(13) & Chr(13) & "(Ihre Eingabe wird in A1 als neuer Default-Wert gespeichert.)", "Datei speichern unter...", lw_pfad)
If lw_pfad = "" Then
  MsgBox "Die Datei wird nicht gespeichert, da Sie [Abbrechen] gedrückt oder nichts eingegeben haben.", , "Abbruch"
  Exit Sub
Else
  If Right(lw_pfad, 1) <> "\" Then lw_pfad = lw_pfad & "\"
  ActiveSheet.Range("A1").Value = lw_pfad
Rem MsgBox lw_pfad
ActiveWorkbook.SaveAs lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls gespeichert.", , "OK"
End If
End Sub

Das ist, was ich bis jetzt habe.

Vielen Dank für die Hilfe im Voraus!

...zur Frage

VBA Skript um Daten von einer Excel-Datei in eine andere zu kopieren?

Hallo,

ich habe zwei Excel Dateien. Mit Adressdaten. Das VBA-Skript soll die erste Excel-Datei Zeile für Zeile iterieren und in der zweiten Excel-Datei nach Adressen suchen die gleich sind.

Wird in der zweiten Datei die Adresse aus der ersten Datei gefunden, soll ein weiterer Wert von der zweiten Datei in die erste Datei rüber kopiert werden.

Wichtig wäre mir dabei, dass das Skript in der ersten Excel-Mappe ausgeführt wird, und dass die zweite Excel-Datei gar nicht erst geöffnet wird.

Ich habe schon sehr viel programmiert - aber bisher noch nie etwas in VBA. (und ich komme mit VBA nicht so ganz klar)

Daher wollte ich fragen, ob hier jemand ein Skript hat oder kennt, das etwas ähnliches macht, so dass ich es mir ein bisschen abgucken kann. (Prinzipiell ist das ja ein Problem, das sicherlich häufiger auftritt)

...zur Frage

VBA Datum vergleichen und neu speichern?

Hallo,

ich bin leider noch eine niete was VBA angeht, weshalb ich gerade auf externe Hilfe angewiesen bin. Und zwar habe ich eine Excel Datei in dem z.B ab Zelle A15 bis A90 verschiedene Daten(Datum ebem) stehen.

Es kann auch sein dass manche Zellen ohne Datum sind. Nun versuche ich ein VBA Makro zu erstellen, welches sobald man die Datei öffnet durch ein MsgBox abfrage diese Daten mit dem heutigen Datum vergleicht und mir im Outlook einen Reminder eine Woche vorab erstellt wenn diese Daten älter als 5 Wochen sind und diese bald ablaufen.

Ich wäre euch äußerst Dankbar wenn man mir die Bausteine dazu zur Verfügung stellt.

Grüße

...zur Frage

VBA ohne excel starten

hi ich hätte eine frage ich habe mir jetzt eine vba datei erstellt also mit knöüfen und so . nur jetzt will ich die Datei vom destop aus öffnen ohne dabei excel zu benutzen oder offen zu haben

Ich will das die datei selbständig arbeitet also ein icon auf dem destop was ich anklicke und schon kommt meine vba datei ohne excell ich danke im voraus

MFG Halyl

...zur Frage

Laufzeitfehler 429 in VBA (Excel Makro)?

Hallo!

Zurzeit versuche ich mich an VBA. Ich habe ein Makro erstellt, dass aus einer Excel Tabelle z.B. eine Rechnung erstellt ( durch befüllen der Texftfelder einer Vorlage )

Nun wollte ich das Makro so umändern, dass automatisch der richtige Pfad zum Speichern bzw Öffnen der Vorlage, für den jeweiligen Windows Nutzer benutzt wird. ( Das habe ich mithilfe von Workbook.Path gemacht.

Allerdings gibt er mir jetzt immer Laufzeitfehler 429 aus und ich weiß nicht was zu tun ist.

Bitte helft mir. ( Office und Word sind up to date )

Grüße

Chris

Hier mein Code: https://paste2.org/E8ZmvBXk

...zur Frage

VBA Fehlermeldung Datei nicht vorhanden?

Hallo zusammen,

ich habe folgendes Problem in meinem VBA Code in Excel. Aktuell öffne ich eine automatisch erstelle Excel Datei und kopiere deren Inhalt in meine Hauptdatei. Nach dem die Daten fertig kopiert wurden, nutze ich die Kill Funktion um die Datei zu löschen (dies funktioniert auch). Nach dem Kill Befehl, habe ich eine Msgbox die ausgibt dass alles funktioniert hat. Sobald ich jedoch in der Msgbox auf okay klicke, kommt eine Fehlermeldung, dass Excel die gelöschte Datei nicht mehr finden kann. Ich vermute es liegt daran, dass im im VBA Studio die Datei noch in den geöffneten Dateien angezeigt wird. Weiß jemand wie man die daraus entfernt?

Danke im voraus.

...zur Frage

Excel-VBA Userform in den Hintergrund stellen

Hallo zusammen,

ich hab eine Frage bezüglich VBA in Excel. Wenn ich eine Excel-Datei mit einem UserForm versehe, kann ich keine andere Excel-Datei mehr nebenbei öffnen, es sei denn, ich schliße das UserForm. gibt es eine Möglichkeit, eine Datei mit einem UserForm offen zu lassen, und nebenbei eine andere Excel Datei zu öffnen ?

Danke schonmal für die Antwort!

...zur Frage

VBA - Daten in andere Datei schreiben

Ich habe ein Excel-sheet mit Daten und Makros. Nun möchte ich die Daten in eine neue Excel Tabelle schreiben, so das keine Makro-Sicherheits meldung beim öffnen der ausgegeben Datei kommt.

Wie geht das?

...zur Frage

Excel VBA Wenn funktion?

Hey,

Ich habe eine kleine Frage. Und zwar brauche ich in Excel VBA eine Wenn Funktion.
Diese Wenn soll mir "True" ausgeben wenn in einem bestimmtem Feld das Wort "Baum" drin steckt. (Siehe Bild), (Es soll nur 1 mal drin sein, wenn mehrmals dann macht es nichts)
Wie kann ich das machen?

Das ausgeben soll es mal mit msgbox.

Danke im Voraus

...zur Frage

Excel VBA: Wie Inhalt einer Zelle in einer Msgbox anzeigen?

Meine ersten Schritte nach 20 Jahren Pause. Ich will etwas tun, wenn eine Zelle den Text "crash" enthält. Welche Eigenschaft der Zelle ist der Text (VBA)?

...zur Frage

App programmieren VBA Excel?

Wie kann man eine Excel Datei mit Makros als App umwandeln. Bzw kann man eine App bauen und Excel samt Makros iwie einbetten?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen