Bonjour le forum,

Ma présentation diaporama (.ppsx) est protégée par un mot de passe
Je souhaite l'ouvrir en lecture seule.
Malgré mon code (ReadOnly:=msoTrue), celui-ci m'est demandé.

(Référence Powerpoint bien activée)

Par avance, merci.

Mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub LANCERPPS2()
 
Dim FichierPps As String, pwpt As Object, prespps As Object
 
FichierPps = "lechemin\Pres_Marcel.ppsx"
Set pwpt = CreateObject("PowerPoint.Application")
pwpt.Visible = True
Application.DisplayAlerts = False
Set prespps = pwpt.Presentations.Open(Filename:=FichierPps, ReadOnly:=msoTrue)
'prespps.SlideShowSettings.Run
 
Set prespps = Nothing
Set pwpt = Nothing
 
End Sub