Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1904to1908
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
1904to1908
1904to1908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Prüfen ob Datei geöffnet ist

VBA - Prüfen ob Datei geöffnet ist
09.11.2022 10:30:00
Manu
Hallo,
ich habe folgendes Problem und komme nicht ganz auf die Lösung:
Ich möchte per VBA prüfen ob eine Datei bereits geöffnet ist -
1. wenn von einem anderen User geöffnet (also schreibgeschützt), dann Fehlermeldung (MsgBox)
2. wenn diese von mir geöffnet ist - dann Daten in diese Datei kopieren
3. wenn die Datei noch nicht geöffnet ist diese öffnen.
Irgendwie bekomme ich es nicht hin alle drei Fälle abzudecken.
Wenn die Datei von einem anderen User geöffnet ist, dann eine Fehlermeldung zu bekommen bzw. falls nicht von einem anderen User geöffnet öffnet es mir die Datei - das funktioniert mit folgendem Code:

Dim cb As Workbook
Set cb = Workbooks.Open(NeueDatei)
If cb.ReadOnly = True Then
MsgBox ("Datei ist bereits von anderem Benutzer geöffnet - bitte versuchen Sie die Aktualisierung später nochmal!")
cb.Close False
Else
....
Aber wie bekomme ich jetzt noch abgefragt ob ich die Datei schon geöffnet hab?
Danke
Viele Grüße Manu

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Prüfen ob Datei geöffnet ist
09.11.2022 10:47:04
Marc 

Dim PDF_Bool As Boolean
PDF_Bool = TestOpenPDF("dein Pfad \" & dateinameMitEndung)
Und dazu die Funktion: TestOpenPDF

Function TestOpenPDF(DateiName As String) As Boolean
ThisWorkbook.Activate
Dim DateiNr As Long
Dim fehler As Long
On Error Resume Next
DateiNr = FreeFile()
Open DateiName For Input Lock Read As #DateiNr
Close DateiNr
FehlerNr = Err
On Error GoTo 0
Select Case FehlerNr
Case 0
TestOpenPDF = False
Case 53
'MsgBox "PDF wird erzeugt", vbOKOnly
TestOpenPDF = False
Case 70
TestOpenPDF = True
Case Else
'Error FehlerNr
'MsgBox "Fehler: " & FehlerNr, vbOKOnly
TestOpenPDF = False
End Select
End Function

Anzeige
AW: VBA - Prüfen ob Datei geöffnet ist
09.11.2022 11:52:04
Manu
Danke für deine schnelle Antwort. Ich hab die Lösung jetzt von Daniel genommen, da ich damit besser zurecht kam.
Gruß Manu
AW: VBA - Prüfen ob Datei geöffnet ist
09.11.2022 10:57:00
Daniel
Hi
Nun, als erstes prüft man, ob man selber die Datei schon geöffnet hat.
Wenn nicht, öffnet man sie.
Wenn man dann sicher ist, dass die Datei geöffnet ist, prüft man den Schreibschutz.

Dim wb AS Workbook
For each wb in Application.Workbooks
If wb.Name = "Dateiname ohne Pfad" then Exit for
Next
If wb is Nothing then set wb = Workbooks.Open("Dateiname mit Pfad")
If wb.readonly = true then
Code für schreibgeschützt
Else
Code für nicht schreibgeschützt.
End if
Gruß Daniel
Anzeige
AW: VBA - Prüfen ob Datei geöffnet ist
09.11.2022 11:50:22
Manu
Hallo Daniel.
es hat funktioniert :)
Herzlichen Dank !!
Gruß Manu

321 Forumthreads zu ähnlichen Themen

Makro prüft ob Datei vorhanden ist.
Peter

Hallo!
Ich bin wirklich ratlos: in meinem Sheet wird eine spezielle Schriftart verwendet. Das Sheet wird leider nur dann leserlich angezeigt, wenn die Schriftart installiert ist. Deshalb soll ein Makro prüfen, ob die Datei "Grafikfonds.TTF im folgenden Ordner vorhanden ist C:\WINDOWS\Fonts\...
28.12.2008 01:46:00
Thread-ID: 1035513
3 Beiträge
Anzeige
Prüfen ob Zelle vorhanden...
pervenches

Guten Tag
Diese Formel sollte überprüfen, ob die Zelle "Erfolg" mit Inhalt "2" vorhanden ist und falls ja den entsprechenden Wert ausgeben. Falls diese Zelle nicht vorhanden ist sollte Sie den Wert von "G1" ausgeben. Die Zelle ist nicht immer vorhanden, da es sich um eine Pivot-Tabelle han...
09.09.2009 09:02:19
Thread-ID: 1101377
5 Beiträge
Prüfen ob Datei vorhanden
Marcus

Hallo,
kann mir jemand sagen, wie folgender Code aussehen muss:
Prüfen ob eine Datei, die ich als Bild in Excel mit VBA einfügen möchte, vorhanden ist.
If Dir(K:\Modelle Zeichnungen\Sal\Bilder TIF\...001.TIF) "" Then
Allerdings steht die Pfadangabe in der Zelle H2, da es verschi...
15.10.2009 07:05:26
Thread-ID: 1109751
2 Beiträge
Anzeige
Prüfen ob Schaltfläche vorhanden
walli

Guten Tag,
ALLEN ein frohes Weihnachtsfest !
Ich habe mal gestöbert und dies gefunden.
Ich möchte nur prüfen ob ein Schaltfläche mit der Nummer 10 vorhanden ist, das klappt so nicht.
Dim shShape As Shape
For Each shShape In Worksheets("Test").Shapes
If shShape.Name = "Sc...
25.12.2009 15:52:15
Thread-ID: 1125912
7 Beiträge
Prüfen ob Tabellen vorhanden
Kurt

Guten Morgen,
wünsche allen ein gesundes neues Jahr !
Danke für die bisherige Unterstützung !
Frage:
Ich habe eine Datei mit Tabellen die mit Monatsnamen hinterlegt
sind. (MMM)
Ich möchte prüfen ob ein Monat fehlt.
mfg Kurt P
05.01.2010 09:31:14
Thread-ID: 1127179
7 Beiträge
ControlPopup prüfen ob 2 mal vorhanden
marco

Hallo Kollegen,
Habe momentan ein problem mit der abfrage ob das popup vorhanden ist. Obwohl in der Menueleiste das Popup mit dem Namen "PT-Tool" vorhanden ist.
Popup wird ertellt.
Public Sub prcCreateButton() Dim myCommandBar As CommandBar Dim myCommandBarPopup As CommandBarContro...
28.01.2010 17:44:30
Thread-ID: 1133863
3 Beiträge
prüfen ob versch. Ziffern in Zellen vorhanden sind
Heinz

Hallo Excellenten,
viele Grüße an Alle an an diesem (im Süden) sonnigen Tag.
Mein Problem: Ich habe eine Spalte mit folgenden Zellen:
A1: 1;0000000 9; 10;000 14;00000000 23;0 25;0 27; 28; 29;0
A2: 00000000 9;00000000000000 24; 25;00000
A3: 00 3;0000000000000000 27;000
A...
08.04.2010 21:26:15
Thread-ID: 1150683
4 Beiträge
Überprüfen ob Tabellenblatt vorhanden ist
Ingo

Hallo zusammen,
hab folgendes Problem. Ich öffne nacheinander verschiedene Dateien um bestimmte Zellen auszulesen.
Wenn in der geöffneten Datei das Tabellenblatt mit dem Namen "Motor" nicht vorhanden ist sollen die nachfolgenden Schritte nicht bearbeitet werden. Irgendwie klappt das bei...
20.04.2010 11:44:29
Thread-ID: 1152802
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
4
1
5
6
6
2
3
2
3
3
2
4
6
6
3
3
2
3
3
3
7
4
4