MPP-Datei schreibgeschützt öffnen
07.03.2005 14:01:43
yogi
Mit folgendem Makro öffne ich MS-Project Dateien aus Excel heraus:
Set MyShell = CreateObject("WScript.Shell")
strDateiName = dir_is & file_is
strDateiName = Chr(34) & strDateiName & Chr(34)
MyShell.Run strDateiName
Set MyShell = Nothing
Funktioniert perfekt. Nun sollte die Datei aber schreibgeschützt geöffnet werden. Irgendjemand eine Idee?
(Sollte in Zukunft ev. auch mit anderen Dateien wie PowerPoint oder Word finktionieren!)
Gruss
yogi