Freigabemodus nicht beenden
25.07.2007 17:13:57
Blättler
Ich bearbeite gerade eine Arbeitsmappe, die von mehreren Usern später genutzt wird. Die Mappe sollte also ständig im Modus Freigabe sein.
Beim Öffnen des Workbooks aktiviere ich mit dem Code:
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True, password:="1"
Sheets(i).EnableAutoFilter = True
Next i
den Autofilter, obwohl der Blattschutz ebenfalls aktiviert ist.
Nun zu meinem Problem: Wenn der Code im Modus Freigabe ausgeführt wird - sprich jemand die Mappe öffnet - ergibt dies den Laufzeitfehler 1004. Wenn aber erst der Freigabemodus deaktiviert wird und anschliessend der Code ausgeführt wird, werden die aktuellen Benutzer sozusagen rausgeworfen.
Wie kann ich nun trotz Freigabemodus und Blattschutz alle User arbeiten lassen ohne diesen Laufzeitfehler und ev. Rauswurf?
Vielen Dank!