Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1856to1860
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
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige