freigegebene Arbeitsmappe & Blattschutz
26.09.2005 15:50:46
Steve
habe folgendes Problem:
Eine Arbeitsmappe ist freigegeben, d.h. mehrere User müssen darauf Zugriff haben um lesen und auch schreiben zu können. In meiner Mappe können nur bestimmte User in bestimmte Zellen schreiben, die anderen Zellen sind mit einem Blattschutz versehen.
Nun habe ich den Code mit "ActiveWorkbook.ExclusiveAccess" programmiert aber jetzt können andere zwar noch auf die Datei zugreifen aber die Änderungen können nicht mehr angezeigt bzw. gespeichert werden.
Hat jemand eine Idee wie ich das Problem lösen könnte?
Hier der Code:
Private Sub Workbook_Open()
Application.DisplayAlerts = False
ActiveWorkbook.ExclusiveAccess
With ActiveSheet
.EnableAutoFilter = True
.Protect Password:="", Contents:=True, userInterfaceOnly:=True
End With
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.FullName, AccessMode:=xlShared
Application.DisplayAlerts = True
End Sub
Gruß Steve
