Mehrfachzugriff/-öffnen sperren
07.12.2012 16:32:07
Kie
Problemstellung: Eine Excel-Datei soll immer nur von einem Nutzer zum Öffnen möglich sein.
Ich möchte für meine Excel-Datei keine Mehrfachbenutzung oder Mehrfachöffnung zulassen. Ist die Datei durch jemand anderen geöffnet, soll sie für alle anderen gesperrt werden und ein Hinweis ausgegeben: Datei durch Benutzer "xya" gesperrt. Auch keine Öffnung einer Kopie soll zugelassen werden.
Wie ist das möglich?
Daanke.
Option Explicit
Private Sub Workbook_Open()
If ActiveWorkbook.ReadOnly = True Then
MsgBox "schon in Benutzung"
ThisWorkbook.Close
End If
End Sub
Vielen Dank für die Antwort.
Leider bin ich erst heute dazugekommen es zu testen. Es funktioniert nicht.
Also die IF Abfrage klappt, aber beim Schließen der Datei kommt es zu einem Fehler und die Datei bleibt geöffnet. Was kann ich tun?