Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1928to1932
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
Inhaltsverzeichnis

Schreibberechtigung einer Excelmappe

Schreibberechtigung einer Excelmappe
04.05.2023 19:35:37
Edi

Hallo Ihr

Ich könnte mal wieder Hilfe von Profis gebrauchen, komme nämlich nicht weiter.
Ich habe für unseren Betrieb eine Excelmappe erstellt, die auf einem Server liegt.
Die komplette Belegschaft hat darauf Serverbedingt nur Leserechte, aber es gibt Ausnahmen.
5 Kollegen haben auch Schreibrechte.

Das Problem:
Der erste, der die Datei öffnet hat Schreibrecht, für die restlichen 4 ist die Mappe schreibgeschützt.
Oft ist es aber so, dass der erste gar nichts schreiben muss und nur Lesezugriff braucht. Dann geht die Telefoniererei los "Kanns du mal aus der Datei raus?"

Die Lösung: (so dachte ich mir)
Beim Öffnen der Datei: ThisWorkbook.ChangeFileAccess xlReadOnly
Funktioniert. Die Datei wird nun prinzipiell schreibgeschützt geöffnet.
Dann habe ich einen Button mit dem Code: ThisWorkbook.ChangeFileAccess xlReadWrite
Wenn er also Schreibzugriff benötigt, klickt er drauf und bekommt ihn (sofern kein anderer schneller war)
Funktioniert auch prima

Das Aber:
Wenn der Kollege vorher nur eine Winzigkeit ändert, und sei es nur, eine Zelle auszuwählen, kommt diese fiese Meldung.

Userbild

Die Änderung war man natürlich selber. Die Datei kann nicht von 2 Personen gleichzeitig bearbeitet werden.
Von daher wäre die richtige Antwort "Verwerfen"

Die Frage:
Wie kann ich das unterdrücken?
Application.DisplayAlerts = False nutzt leider nix

Gibt es überhaupt eine Lösung dafür?

Danke für Eure Mühe
Gruß
Edi

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schreibberechtigung einer Excelmappe
04.05.2023 19:44:01
Edi
Sorry, ziehe die Frage zurück.
Kaum abgeschickt ist mir die Lösung selber eingefallen.

ThisWorkbook.Saved = True

Und das Teil gibt Ruhe

Trotzdem Danke fürs Lesen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige