ReadOnly-Eigenschaft beim direkten Öffnen v Datei
17.08.2006 13:57:00
stefanseevetal
Ich verzweifel heute noch an. Ich versuche schon den ganzen Tag, dass sich mein Workbook, wenn ich es direkt öffne, automatisch schreibgeschützt öffnet. Matthias hat mir gestern netterweise den Tipp gegeben, es so zu versuchen (vielen Dank dafür!):
Private Sub Workbook_Open()
Me.ChangeFileAccess xlReadOnly
End Sub
Dies führt bei meinen Excel-Dateien aber zu sehr merkwürdigen Fehlern und schweren Ausnahmefehlern, wieso auch immer?!
Deshalb meine Frage: Wenn ich ein Workbook per VBA öffne, kann ich den Schreibschutz ja so festlegen:
Workbooks.Open Filename:=ThisWorkbook.Path & "\test.xls", _
ReadOnly:=True
Gibt es nicht so eine ähnliche Möglichkeit auch den anderen Fall. So etwa:
Private Sub Workbook_Open()
ThisWorkbook ReadOnly:=True
End Sub
(Das Beispiel funzt leider nicht, hab ich schon gestestet)
Also, vielleicht kennt ja jemand noch eine andere Möglichkeit, außer die von Matthias? Ihr würdet mir sehr helfen!
Danke und Gruß,
Stefan