Hi Forum,
ich benötige in einem mit Blattschutz versehenen Arbeitsblatt, das ich zum Bearbeiten für mehrere Nutzer freigegeben habe, die Autofilter-Funktion.
In nicht freigegebenen Arbeitsmappen funktioniert das mit
With ActiveSheet
.EnableAutoFilter = True
.Protect Password:="password", Contents:=True, userInterfaceOnly:=True
end with
einwandfrei, nicht aber in freigegebenen.
Zur Zeit behelfe ich mir hier mit folgendem Code, der beim Öffnen der Datei ausgeführt wird:
with ActiveSheet
ActiveWorkbook.ExclusiveAccess
.EnableAutoFilter = True
.Protect Password:=" password", Contents:=True, userInterfaceOnly:=True
End with
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.FullName, AccessMode:=xlShared
Das funktioniert zwar auch. Allerdings muss jetzt der Nutzer beim Öffnen der Datei zunächst auf zwei Fragen ("Soll der Arbeitsmappenschutz aufgehoben werden?" und "~...soll die bereits existierende Datei ersetzt werden?") mit "Ja" antworten.
Hat jemand vielleicht eine Idee, wie man das umgehen kann?
Gruß Tomm