Discussion :

[MarcelG]

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

[Marc-L]

Bonjour,

et en utilisant le format .pps ? …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[MarcelG]

Bonjour et merci.

Comme je l'avais déjà vu, message d'erreur "ne peut pas ouvrir". (en anglais)
En effet, les librairies (références) ne sont pas les mêmes
ppsx : 14.0
pps : 11.0

Or je travaille sur Excel 2010 (14.0)

Bizarre.

[Marc-L]

Et pourtant le code de la présentation initiale n'utilise aucune librairie vu les variables Object ‼
Sans compter la ligne de code n°6 …

Sinon c'est une question à poser dans le forum PowerPoint !

[MarcelG]

Sauf si quelque chose m'échappe (ce qui est sans doute le cas), il te fait bien activer une référence Powerpoint
Ici Microsoft Powerpoint 14.0 Object Library

[Marc-L]

Aucunement vu le code présenté ‼ (Déclaration des variables et ligne n°6 !)     Voir le tutoriel Early / Late Binding …

Et comme c'est un problème PowerPoint, poser au moins la question dans le forum dédié …