Fehler-VBA-Schreibgeschützt öffnen
20.09.2006 10:59:12
Fabio
mit folgendem Code will ich eine "bestimmte" Datei per Makro öffnen :
UserForm1.Show
Dim strFile As String
strFile = "O:\tore\statistik2006\" & Range("A2").Text
If Dir(strFile) = "" Then
MsgBox "Datei nicht gefunden"
Exit Sub
Else
Workbooks.Open strFile readonly:=true
End If
Wechsel
End Sub
Die Datei will ich aber IMMER schreibgeschützt öffnen - und ich dachte das geht mit dem Befehl "Readonly:=true"
(zeile : Workbooks.Open strFile readonly:=true)
Da kommt aber sofort eine Fehlermeldung (Kompilieren - end erwartet) - hat jemand einen Tipp, wo ich das "readonly" ansonsten platzieren muss ?
Danke !
Fjolnir