ich öffne eine Excel Arbeitsmappe aus einem Word-Dokument heraus mit Hilfe eines Hyperlinks. Dies funktioniert auch ganz gut. Jetzt will ich erreichen, dass die Excel-Arbeitsmappe sich nur im Read-Only Modus öffnet. Gibt es hierzu eine Möglichkeit ?
Private Sub CommandButton1_Click()
Dim xlAppl As Object
Dim path As String
path = "C:\Mappe1.xls"
Set xlAppl = GetObject(Class:="excel.application")
xlAppl.Visible = True
xlAppl.workbooks.Open path, ReadOnly:=True
End Sub