Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ReadOnly - Neu öffnen wenn verfügbar

Forumthread: ReadOnly - Neu öffnen wenn verfügbar

ReadOnly - Neu öffnen wenn verfügbar
12.11.2021 08:24:03
Andy
Guten Morgen alle zusammen,
man kann beim Öffnen einer Arbeitsmappe im Workbbo Open Ereignis mit dem Befehl ReadOnly feststellen, ob eine Mappe bereits durch einen anderen Benutzer geöffnet ist. Besteht irgendwie die Möglichkeit in einem solchen Falle weitergehend zu prüfen, wann die Arbeitsmappe wieder verfügbar ist? Und wenn ja, im Falle der Verfügbarkeit ein automatisches Neuöffnen der Mappe in die Wege leiten ?
Vielen Dank und Lg
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ReadOnly - Neu öffnen wenn verfügbar
12.11.2021 08:50:29
Nepumuk
Hallo Andy,
so:

Public Sub Test()
Workbooks.Open Filename:="H:\DeineDatei.xlsx", Notify:=True
End Sub
Gruß
Nepumuk
AW: ReadOnly - Neu öffnen wenn verfügbar
12.11.2021 11:40:51
Andreas
Dh ich muss dann eine Art Schleife darum machen ? Derzeit mache ich folgendes:
Habe in den Kommentar hineingeschrieben, was ich dann machen will:

Private Sub Workbook_Open()
'Prüfen, ob die Arbeitsmappe anderweitig geöffnet wurde, ansonsten Programm beenden
If ThisWorkbook.ReadOnly Then
'jetzt hier eine Art Schleife....
' bitte warten, Ich versuche es weiter bis datei geschlossen wurde von anderem Benutzer -- oder Button zum abbrechen, damit die datei ganz geschlossen wird unmd nicht mehr wartet
ThisWorkbook.Close False
End If
End Sub

Anzeige
AW: ReadOnly - Neu öffnen wenn verfügbar
12.11.2021 13:44:07
Nepumuk
Hallo Andy,
dann so:

Private Sub Workbook_Open()
If ReadOnly Then
Call ChangeFileAccess(Mode:=xlReadWrite, Notify:=True)
End If
End Sub
Du bekommst von Excel eine Meldung dass das Workbook , wenn es vom anderen Benutzer geschlossen wurde, nun im Exklusiv-Modus geöffnet werden kann.
Gruß
Nepumuk
Anzeige
AW: ReadOnly - Neu öffnen wenn verfügbar
12.11.2021 22:19:02
Andreas
Hallo Nepumuk,
danke für deinen Code. Damit kann ich schon was anfangen... Jetzt ist nur noch die Frage, ob er auch dieses Abfragefenster am Anfang "Dokument wird verwendet" und das, dass sich dann öffnet, wenn es deinen code abarbeitet - sprich das mit der Benachrichtigung... Ob er diese automatisch bestätigen kann.
Anzeige
AW: ReadOnly - Neu öffnen wenn verfügbar
13.11.2021 08:54:46
Nepumuk
Hallo Andy,
nein, das geht nicht da der VBA-Code angehalten wird sobald sich das Fenster öffnet.
Gruß
Nepumuk
;

Beliebteste Forumthreads (12 Monate)

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