Readonly Meldung des Aktuellen Users in msgbox
04.06.2009 10:36:55
chris
ich habe eine frage und komme nicht weiter.
Ich habe eine Exceldatei.Diese Datei darf immer nur 1 Benutzer gleichzeitig öffnen.
Dazu habe ich diesen Code unten eingebaut.
Das klappt auch gut aber wie kann in in eine msgbox den altuellen Benutzernamen melden damit der user der die Datei gerade öffnen will weiß wer die Datei gerade bearbeitet.
Wenn ich eine normale Datei ohne Makro öffnen will die ein anderer Benutzer gerade bearbeitet kommt ja auch die Meldung:
Datei ist Schreibgeschützt von xxxxx
Schreibgeschützt öffnen JA - NEIN ....
Ist es möglich diesen User auch PER Makro auszugeben ?
'Hier mein Code
Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then
MsgBox ("Datei wird gerade verwendet." & Chr(10) & "Datei wird jetzt Automatisch _
geschlossen"), vbCritical, "Datei kann nicht verwendet werden"
ThisWorkbook.Close False
End If
End Sub
Ich bedanke mich vielmals im vorraus bei allen Helfern !
gruß Chris