Bibliothek

Sub OpenDoc()
Dim secAutomation As MsoAutomationSecurity
With Application
'merken der Sicherheitseinstellungen
secAutomation = .AutomationSecurity
'Setzen der Sicherheitseinst.(Verbieten der Ausf. von Makros)
.AutomationSecurity = msoAutomationSecurityForceDisable
End With
'Dokument öffnen
Documents.Open Filename:="C:\test.doc", ReadOnly:=True
With Application
'Zurücksetzen der Sicherheitseinstellungen
.AutomationSecurity = secAutomation
End With
End Sub

Danke

Nico