Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1096to1100
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
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wer hat Datei geöffnet per MSGBOX ?

Wer hat Datei geöffnet per MSGBOX ?
chris
Hallo Forumsbesucher und VBA Spezialisten,
ich habe eine frage.Diese habe ich glaube ich schon einmal gestellt und habe keine Lösung bekommen.
Ich habe unten einen Code den ich erweitern möchte.
Ich habe eine MasterDatei in der steht volgender Code.

Option Explicit
Sub starte_Datei()
Dim cb As Workbook
Set cb = Workbooks.Open("C:\test.xls")
If cb.ReadOnly = True Then
MsgBox ("Datei wird gerade bearbeitet, und wid nicht Schreibgeschützt geöffnet!"), vbCritical, " _
Bitte beachten"
cb.Close False
Else
'Datei kann geöffnet bleiben
End If
End Sub
Mit diesem Code öffne ich eine Datei.Wenn aber die Datei "test.xls" Schreibgeschützt ist, also wenn ein anderer User die Datei gerade bearbeitet kommt eine msgbox und die Datei wird geschlossen.
Wie schaffe ich es in diese MSGBOX noch den Namen des Users zu bekommen der die Datei gerade geöffnet hat ? So das die msgbox so aussieht.

MsgBox ("Datei wird gerade bearbeitet von " & HierDerUsername & " , und wird nicht Schreibgeschü _
tzt geöffnet!"), vbCritical, "Bitte beachten"

vielen Dank an alle Helfer !
gruß Chris

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Wer hat Datei geöffnet per MSGBOX ?
20.08.2009 12:51:13
MichaV
Hallo, kommt diese Meldung nicht sowieso von Excel, wenn die Datei offen ist?
Gruss- Micha
AW: noch offen
20.08.2009 14:10:06
chris
Hallo Micha,
nicht wenn ich die Datei mit diesem Code starte.

  • Set cb = Workbooks.Open("C:\test.xls")

    • Das ist ja das Problem.
    Es kommt nur meine Makro Meldung (msgbox) und dann wird die Datei Geschlossen.
    Danke für weitere Hilfen an alle !
    Wer hat Datei geöffnet per MSGBOX ?
    20.08.2009 19:57:36
    MichaV
    Hallo,
    ja das ist ein Problem, wusste ich nicht.
    Das hier wäre eine Möglichkeit, funzt bei mir nachdem ich 10x die Treppe hoch- und runtergerannt bin :o)
    In der Mappe, die geöffnet werden soll: 
    
Option Explicit
Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then Exit Sub
ThisWorkbook.CustomDocumentProperties("user") = Environ("Username")
ThisWorkbook.Save
End Sub
Sub CustomDocumentProperties_hinzufuegen()
'nur einmal ausführen
With ThisWorkbook.CustomDocumentProperties
.Add Name:="last_user", LinkToContent:=False, Type:=msoPropertyTypeString, Value:=Environ(" _
Username")
End With
End Sub

    Und in der Mappe, die öffnet: 
    
Sub test()
Dim wb As Workbook
Set wb = Workbooks.Open("\\Glados\daten (d)\Micha\Excel\a.xls")
If wb.ReadOnly Then
MsgBox "gesperrt durch " & wb.CustomDocumentProperties("user")
End If
End Sub

    Guss- Micha
    Anzeige
    AW: Wer hat Datei geöffnet per MSGBOX ?
    20.08.2009 21:03:22
    chris
    Das ist ne möglichkeit :)
    danke Micha und schönes WE !
    Danke für die Rückmeldung mT
    21.08.2009 00:24:57
    MichaV
    .Add Name:="last_user" muss natürlich .Add Name:="user" heissen.
    Dir auch ein schönes WE, Gruß- Micha
    AW: Wer hat Datei geöffnet per MSGBOX ?
    20.08.2009 14:54:55
    ChrisL
    Hallo Chris
    Mit folgendem Code erzeugst du eine kleine Textdatei, wo der Username drin gespeichert wird...
    Sub starte_Datei()
Dim cb As Workbook
Dim strDatei As String, strUsername
Set cb = Workbooks.Open("C:\Dokumente und Einstellungen\All Users\Dokumente\test2.xls")
strDatei = cb.Path & "\tag.txt"
If cb.ReadOnly = True Then
Open strDatei For Input As #1
Line Input #1, strUsername
MsgBox "Datei wird gerade bearbeitet von " & strUsername, vbCritical, "Bitte beachten"
cb.Close False
Else
Close #1
Open strDatei For Output As #1
Print #1, Environ("Username")
End If
Close #1
End Sub
    cu
    Chris
    Anzeige
    AW: Wer hat Datei geöffnet per MSGBOX ?
    20.08.2009 15:24:23
    chris
    Danke das ist möglich.
    Aber dazu müsste es ein Netzlaufwerk geben auf das jeder zugreifen kann :(
    Danke für den Tipp.Ich dachte es geht anders.
    deshalb lass ich einfach noch einmal offen.
    Vielen Dank !
    AW: Wer hat Datei geöffnet per MSGBOX ?
    20.08.2009 19:27:00
    ChrisL
    Hallo Chris
    Danke für die Rückmeldung. Ist ein solches Netzwerk nicht Grundvoraussetzung? Bin leicht verwirrt, weil ohne Netzwerk kann die Datei ja nicht durch mehrere Benutzer gleichzeitig in Bearbeitung sein oder mache ich vielleicht einen Überlegungsfehler.
    cu
    Chris
    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
    3
    4
    5
    2