Bibliothek
10.03.2003 13:59:26
Nico
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