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