Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: -------> Neu: dotNet & Visual Studio Forum <-
Datei wird geöffnet obwohl wie schon im Netzwerk offnen ist
zurück: Suchfunktion für mehrere Blätter weiter: Verknüpfung Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
goolgetter
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. Nov 2007, 16:33
Rufname:

Datei wird geöffnet obwohl wie schon im Netzwerk offnen ist - Datei wird geöffnet obwohl wie schon im Netzwerk offnen ist

Nach oben
       Version: Office 2007

Hallo an die Forummitglieder,

bräuchte einen Entscheidenen Tipp von Euch!

Folgende Problematik:

Die Datei "Quelldatei.xls" befindet sich auf einem Fileserver. Sie dient dazu, alle Ereignisse zu erfassen.

Wenn ein User diese geöffnet hat und eine anderer will nun auf diese Datei zugreifen kommt die Meldung "Die Datei ist durch xxx gesperrt" Schreibgeschützt öffen/ benachrichtigen oder so..... ( So soll es eigentlich auch sein.)

Diese Meldung will ich per VBA abfangen und Auswerten mit folgender Funktion:
Code:

Function Datei_in_Benutzung(Dateiname As String) As Boolean 'Prüft ob datei bereits geöffnet
    On Error Resume Next
    Close #1
    Open Dateiname For Random Access Read Lock Read Write As #1
        Datei_in_Benutzung = Err.Number <> 0
    Close #1
End Function



Über eine Userform fülle ich die Tabelle.
Öffne die Datei wie folgt:

Code:
Private Sub CommandButton1_Click()

If Datei_in_Benutzung("Z:\Störmeldung\Quelldatei1.xls") Then
MsgBox "Datei zur Zeit gesperrt!"
Exit Sub

Else
Workbooks.Open "Z:\Störmeldung\Quelldatei1.xls"
Workbooks.Open filename:="Z:\Störmeldung\Quelldatei1.xls"
Application.Workbooks("Quelldatei1.xls").Windows(1).WindowState = xlMinimized
Application.Workbooks("Störung erfassen1024.xls").Windows(1).WindowState = xlMaximized
UserForm1.Show
End If
End Sub

Function Datei_in_Benutzung(Dateiname As String) As Boolean 'Prüft ob datei bereits geöffnet
    On Error Resume Next
    Close #1
    Open Dateiname For Random Access Read Lock Read Write As #1
        Datei_in_Benutzung = Err.Number <> 0
    Close #1
End Function


Wenn nun ein User die gleiche Userform aufruft kommt diese Meldung nicht! Also wird ebenfalls geöffnet, was nicht passieren soll!

Wenn ich die Quelldatei "normal" öffne und ein anderer im Netzwerk sie über die Userform öffnen will klappt es so wie es soll--> nämlich es kommt die Meldung "Datei zur Zeit gesperrt!"

Es muss also wahrscheinlich irgendetwas mit dem aufrufen der Quelldatei über die Userfrom zu tun haben!

Habt ihr da ein Tipp?
maninweb
Microsoft Excel MVP 2014


Verfasst am:
16. Nov 2007, 20:28
Rufname: maninweb
Wohnort: Aachen


AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen - AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen

Nach oben
       Version: Office 2007

Hi goolgetter

Tipp : Open Dateiname For Random usw. ist nicht für Exceldateien gedacht.
Da geht es darum z.B. Tectdateien zu öffnen. Mit Open greifst Du physikalisch
auf die Datei zu.

Du könntest probieren die Datei mit Workbooks.Open zu öffnen. Wenn Du dabei
Application.DisplayAlerts auf false setzt, aber anschließend prüfst, ob die gerade
geöffnete Datei auf ReadOnly (Application.Workbooks("Datei").ReadOnly)
steht, kann es sein, dass die Datei gerade in Benutzung ist.

Möglicherweise gibt's aber auch eine Eigenschaft der Worksbooks, die prüft,
ob eine Datei in Benutzung ist. Habe gerade kein Excel zur Hand, weshalb ich
nicht nachgucken kann.

Gruß

_________________
Der größte Aberglaube der Gegenwart ist der Glaube an die Vorfahrt.
Jacques Tatischeff - auch bekannt als Jacques Tati
20FCC4FD0E3240C59522E3F0C4695941
goolgetter
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. Nov 2007, 10:13
Rufname:

AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen - AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen

Nach oben
       Version: Office 2007

Danke erstmal soweit für den Denkanstoss!

Werde es ausprobieren und dann Meldung erstatten.

Bis dann!
goolgetter
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. Nov 2007, 11:09
Rufname:

AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen - AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen

Nach oben
       Version: Office 2007

Hat super mit folgendem Quellcode funktioniert!

Code:
Private Sub CommandButton1_Click()

Workbooks.Open "Z:\Störmeldung\Quelldatei1.xls"
Application.Workbooks("Quelldatei1.xls").Windows(1).WindowState = xlMinimized
Application.Workbooks("Störung erfassen1024.xls").Windows(1).WindowState = xlMaximized
Application.DisplayAlerts = False

If (Application.Workbooks("Quelldatei1.xls").ReadOnly) = True Then
Application.Workbooks("Quelldatei1.xls").Close
MsgBox "Datei gerade geöffnet! Versuchen Sie die Störung später zu erfassen!"

Exit Sub
Else

UserForm1.Show



End If

End Sub


Danke nochmal!

Noch dazu eine kleine Frage am Rande.

Wie kann man die Meldung "Datei ist wieder zum Bearbeiten frei" (oder so ähnlich)Lese/Schreibzugriff unterdrücken?
Nachdem diese Datei von einem anderen User wieder geschlossen wurde?
maninweb
Microsoft Excel MVP 2014


Verfasst am:
19. Nov 2007, 11:29
Rufname: maninweb
Wohnort: Aachen


AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen - AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen

Nach oben
       Version: Office 2007

Hi nochmal...

schön, dass es geklappt hat. Könntest Dir die Parameter Notify und IgnoreReadOnlyRecommended
der Workbook.Open Menthode anschauen.

Gruß

_________________
Der größte Aberglaube der Gegenwart ist der Glaube an die Vorfahrt.
Jacques Tatischeff - auch bekannt als Jacques Tati
20FCC4FD0E3240C59522E3F0C4695941
goolgetter
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. Nov 2007, 11:30
Rufname:

AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen - AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen

Nach oben
       Version: Office 2007

Werde ich gleich mal tun, antwort kommt dann postwendend!
goolgetter
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. Nov 2007, 12:05
Rufname:

AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen - AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen

Nach oben
       Version: Office 2007

Ist noch nicht von Erfolg gekrönt!

Mein Code sieht wie folgt aus:
Code:
Private Sub Workbook_Open()

IgnoreReadOnlyRecommended = True
Notify = False


Oder muss ich Notify und IgnoreReadOnlyRecommended anders verarbeiten?

Habe den Code in "Diese Arbeitsmappe" ist das soweit korrekt?
maninweb
Microsoft Excel MVP 2014


Verfasst am:
19. Nov 2007, 12:51
Rufname: maninweb
Wohnort: Aachen

AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen - AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen

Nach oben
       Version: Office 2007

Hi Goolgetter...

nee, es geht um den Aufruf zum Öffnen der Datei...

Workbooks.Open "Z:\Störmeldung\Quelldatei1.xls", , , , ....

da kannst Du weitere Parameter setzen. Wenn Du einen Parameter nicht brauchst,
der vor dem gewünschten kommt, kann man die leer lasse. Siehe in VBA Hilfe...

Zitat:

Öffnet eine Arbeitsmappe

Ausdruck.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
Ausdruck Erforderlich. Ein Ausdruck, der das Workbooks-Objekt zurückgibt.


Gruß

_________________
Der größte Aberglaube der Gegenwart ist der Glaube an die Vorfahrt.
Jacques Tatischeff - auch bekannt als Jacques Tati
20FCC4FD0E3240C59522E3F0C4695941
goolgetter
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. Nov 2007, 12:58
Rufname:

AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen - AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen

Nach oben
       Version: Office 2007

Stimmt hätte erstmal die Hilfe in Anspruch nehmen sollen!

Danke für deinen Rat!
goolgetter
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. Nov 2007, 14:37
Rufname:

AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen - AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen

Nach oben
       Version: Office 2007

Habe es erneut versucht, leider vergebens.

Code:
Workbooks.Open "Z:\Störmeldung\Quelldatei1.xls", IgnoreReadOnlyRecommended, Notify = Fasle


Jetzt kommt die Meldung nicht mehr, aber jetzt wird nicht mehr die Quelldatei aufgerufen (über CommandButton 1) obwohl die Datei nicht mehr geöffnet ist!
Eigentlich müsste sich die Datei dann öffnen lassen!


Zuletzt bearbeitet von goolgetter am 20. Nov 2007, 11:46, insgesamt 2-mal bearbeitet
maninweb
Microsoft Excel MVP 2014


Verfasst am:
19. Nov 2007, 14:41
Rufname: maninweb
Wohnort: Aachen

AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen - AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen

Nach oben
       Version: Office 2007

Hi nochmal...

es handelt sich um Parameter, die an die Methode Open() übergeben werden.
Hier ein Beispiel...

Code:
Workbooks.Open "Z:\Störmeldung\Quelldatei1.xls", , , , , , True, , , , False


Gruß

_________________
Der größte Aberglaube der Gegenwart ist der Glaube an die Vorfahrt.
Jacques Tatischeff - auch bekannt als Jacques Tati
20FCC4FD0E3240C59522E3F0C4695941
John Doe
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Jun 2008, 12:35
Rufname:
Wohnort: Velbert


AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen - AW: Datei wird geöffnet obwohl wie schon im Netzwerk offnen

Nach oben
       Version: Office 2007

Habe jetzt ein ähnliches Problem. Das mit dem Prüfen ob die Datei geöffnet ist oder nicht funktioniert wunderbar!

Jetzt möchte ich aber nicht nur die Meldung per Msgbox bekommen, dass die Datei bereits geöffnet ist, sondern auch den Namen des Benutzers wissen. Leider vergessen immer wieder einige Kollegen Excel-Dateien zu schließen.

Mit Application.UserName komme ich irgendwie nicht weiter, da er mir nur meinen Namen auswirft.

Gibt es da eine Möglichkeit?!?!

Danke
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: letzte benutzte Dateien unter "Datei" anzeigen 4 Reichmann 1292 16. Jul 2007, 11:08
Gast letzte benutzte Dateien unter "Datei" anzeigen
Keine neuen Beiträge Excel Formeln: ecxel datei funzt bei xp nicht mehr 3 arcos 1189 12. Jun 2007, 18:22
Klaus-Dieter ecxel datei funzt bei xp nicht mehr
Keine neuen Beiträge Excel Formeln: Excel Datei zu groß welche Möglichkeiten?? 1 Gast 2003 04. Jun 2007, 10:44
Alto Excel Datei zu groß welche Möglichkeiten??
Keine neuen Beiträge Excel Formeln: Existenz von Datei über Wenn-Formel prüfen ... 10 leihzahnrad 571 22. Mai 2007, 10:17
watta Existenz von Datei über Wenn-Formel prüfen ...
Keine neuen Beiträge Excel Formeln: Text Datei in Zelle einlesen 0 roman.platter 684 10. Apr 2007, 20:18
roman.platter Text Datei in Zelle einlesen
Keine neuen Beiträge Excel Formeln: Aus externer Datei das Datum und die Zeit auslesen 2 norics 1199 28. März 2007, 08:47
norics Aus externer Datei das Datum und die Zeit auslesen
Keine neuen Beiträge Excel Formeln: Mehrere Benutzer an einer Excel Datei arbeiten 3 der neue 3609 12. Jan 2007, 09:52
Gast Mehrere Benutzer an einer Excel Datei arbeiten
Keine neuen Beiträge Excel Formeln: Inhalt aus Zelle in externe Datei auslagern 1 MavPic 1581 07. März 2006, 19:39
rainberg Inhalt aus Zelle in externe Datei auslagern
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Zeile auslesen / einlesen (Externe Datei) 0 MavPic 1600 07. März 2006, 12:03
MavPic Zeile auslesen / einlesen (Externe Datei)
Keine neuen Beiträge Excel Formeln: Zellen-Import aus Word Datei 1 Heavyduty 785 15. Jan 2006, 20:32
Hübi Zellen-Import aus Word Datei
Keine neuen Beiträge Excel Formeln: Erstellungsdatum einer verknüpften Datei ausgeben. 4 Gabster 1580 14. Aug 2005, 18:01
fl618 Erstellungsdatum einer verknüpften Datei ausgeben.
Keine neuen Beiträge Excel Formeln: SVERWEIS auf externe Datei mit variablen Blattnamen 6 Bia74 1495 04. Jul 2005, 19:28
fl618 SVERWEIS auf externe Datei mit variablen Blattnamen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln