Office: im schreibgeschützter Modus zu nicht schreibgeschützten Modus wechseln(inkl. Abfrage)

Hallo Zusammen,

es gibt eine Excel Liste, die ca. 10 Personen nutzen. Änderungen werden eher weniger durchgeführt (ca. 20 %), meistens reicht der Lese-Modus aus.

Da die Liste fast 40 Mb groß ist, ist folgender Ablauf an der Tagesordnung:

Liste wird geöffnet, aufgrund der Größe muss man erst mal über 10 Sek warten und dann kommt die Meldung: "Die Liste ist im Moment von XXX gesperrt...."



Ich spinne gerade mit folgenden Gedanken:

1. Unter Rechtsklick->Eigenschaften die Liste immer auf "Schreibgeschützt" ändern.

2. In der Liste selbst einen Button einfügen (Beschriftung: Änderungen vornehmen)

3. Es wird ein Makro gestartet, welches zuerst prüft ob sich jemand in der Liste befindet, falls ja: kurze MsgBox: "Die Liste wird gerade von ---Name Bearbeiter-- bearbeitet. Bitte versuchen Sie es später noch einmal"

Falls nein:

Die schreibgeschützte Variante wird geschlossen und anschließend die Nicht schreibgeschützte Variante geöffnet.



Bitte um Rückmeldung ob dies möglich ist, bzw. ob ich viel zu kompliziert denke.

Vielen Dank im Voraus!
Grüße Hias


p.s. die Mappe freizugeben, ist leider schon gescheitert. Grund ist dass das ganze noch langsamer wird und das viele Makros dann nicht funktionieren.
Auch eine Datenbank zu realisieren ist im Moment leider nicht möglich

:)

 

Hallo,

mit "debug.print workbook.readonly" kann der Status geprüft werden.

Reicht dies:

https://exceloffthegrid.com/make-wor...verybody-else/

Mit API's ist es auch möglich den aktuellen user zu ermitteln, aber ...

mfg

 

Hallo Fennek,

diese Funktion war mir bis jetzt unbekannt - guter Tipp!

Leider kommt diese Möglichkeit nicht in Frage...


Um per Knopfdruck herauszufinden, ob sich jemand in einer Excelliste befindet, habe ich schon fast geschafft:

Code:

Obiges Makro gibt sehr schnell eine Rückmeldung ob die Liste belegt ist oder nicht.

Das große Problem sehe ich aber

die aktuelle Liste schließen und wieder öffnen (nicht schreibgeschützt)
(es wurde ja unter der Dateieigenschaft (Rechtsklick->Eigenschaften) "Schreibgeschützt" ausgewählt.


Gibt es Code-Vorschläge um dies zu realisieren?

Vielen Dank!
Grüße Hias

 

Hallo Hias,

ich denke, dies sollte dir helfen

http://www.ms-office-forum.net/forum...d.php?t=207341

bzw. das alternativ noch
vb@rchiv · Tipps & Tricks · Datei-Schreibschutz prüfen und ggf. entfernen (.NET)

 

Hallo,

jawoll, der Code im ersten Link funktioniert. Er verändert die Dateieigenschaft der Excel Liste in Schreibgeschützt und umgekehrt. *wink.gif*

Somit bin ich einen Schritt weiter, ich kann im schreibgeschützten Modus bei der Original-Mappe den Schreibschutz entfernen.

Problem ist aber dass nun die offene schreibgeschützte Variante geschlossen werden soll, die Original-Datei geöffnet werden soll und dann soll zum Schluss die Dateieigenschaft wieder in Schreibgeschützt geändert werden soll... *confused.gif*


Viele Grüße