Excel Datei gesperrt

[Himmet]

Guten Morgen zusammen,

ich habe da eine frage bezüglich schreibgeschützten Excel Dateien. 

Ich habe eine Liste in der nur ich was bearbeiten kann, der Rest der in die Liste reinschaut können diese nur schreibgeschützt öffnen. 

Nun habe ich jedesmal das Problem, das wenn bereits jemand die Excel Datei schreibgeschützt geöffnet hat, ich nicht mehr drauf zugreifen kann. Sprich die Datei kann nur einmal geöffnet werden. 

Es ist inzwischen sehr nervig die Liste jedes Mal frei räumen zu müssen wenn ich Zugang benötige. 

Daher meine Frage: Gibt es eine Möglichkeit diese Excel Datei mehrmals zu öffnen bzw. ich die Liste ganz normal öffnen und bearbeiten kann auch wenn ein anderer diese bereits geöffnet hat?

Eine Kopie o.ä. bringt eher wenig etwas, weil die Leute immer die aktuelle Version benötigen. 

Gruß,
Himmet

[Fennek]

Hallo,

wenn Du sehr konfliktfreudig bist, könnte es so gehen:

Code:

set WB = Workbooks.Open(DieDAtei.xlsx),,1) 'wird schreibgeschütz geöffnet
WB.ChangeFileAccess xlReadWrite
wb.sheets(1).cells(1,1)  = "Jetzt schreibe ich"
wb.save
wb.ChangeFileAccess xlRead
wb.close 0

mfg