Ergebnisse habe ich leider immer noch keine.
Weil du nicht auf die Fragen / Anmerkungen eingehst.
Du siehst vielleicht was auf deinem Rechner los ist, wir nicht.
Wie gehe ich sicher, dass der Code PP mit Schreibrechten oeffnet?
Man wirft einen Blick in die Dokumentation - https://docs.microsoft.com/de-de/office/vba/api/powerpoint.presentations.open
Dim objPres As PowerPoint.Presentation
Set objPres = Presentations.Open("D:\Präsentation1.pptx", _
ReadOnly:=msoFalse, Untitled:=msoFalse, WithWindow:=msoTrue)
If objPres.ReadOnly = msoTrue Then
Debug.Print "Präsentation ist mit Schreibschutz geöffnet"
Else
Debug.Print "Präsentation ist ohne Schreibschutz geöffnet"
End If
objPres.Close
Ob die Datei schreibgeschützt ist, ist von verschiedenen Faktoren abhängig (Nutzerrechte, hat jemand die Datei offen, Schreibschutz-Attribut ist gesetzt).
|