Abrir Power Point con contraseña

19/06/2008 - 18:40 por kaliman | Informe spam
Tengo un boton de comando que al hacer click debe abrir la
presentacion en power point
Supervision.ppt, el problema es que tiene contraseña y no lo puede
abrir si no ingreso la contaseña. Se podra colocar un codigo para
poder abrirlo, e intentado y nada hasta el momento.

Saludos,

Cesar

Private Sub CmdPoint_Click()
Dim DbPath As String
Dim oPowerPoint As PowerPoint.Application
Dim Password As String
DbPath = "D:\Cesar\Liderman Premiun\Power Point\Supervision.pps"
Password = "Gehova"
' instanciamos una nueva ventana de Power Point
On Error Resume Next

Set oPowerPoint = GetObject(, "PowerPoint.Application")
If Err Then
Set oPowerPoint = New PowerPoint.Application
PPTWasNotRunning = True
End If
With oPowerPoint
' la hacemos visible
.Visible = True
' abrimos la Presentacion
.Presentations.Open DbPath, msoTrue
' Documents.Open DbPath, True, False, True, Password
End With
Set oPowerPoint = Nothing

End Sub
 

Leer las respuestas

#1 Enric Mañas [PowerPoint MVP]
21/06/2008 - 18:40 | Informe spam
César,

No he probado con lo que me dices, voy a hacerlo.



Ya nos dirás...

La version es Power Point 2002



PowerPoint es *una* palabra...

Contraseña de Apertura



Ufff...

Quiero usar Power Point



PowerPoint es *una* palabra...

lo quiero para que no modifiquen el archivo.



Para que no lo modifiquen... con “Contraseña de Escritura” habría
*suficiente*... ¿no?

Bueno tengo un programa en excel arhivos.xls con contraseña, desde alli abro las aplicaciones de todos mis archivos tanto en word, excel y tambien quiero hacerlo desde Power Point, no he podido.



Lo siento pero sigo sin enterarme de lo que quieres conseguir
*EXACTAMENTE*... (de “los pasos” que sigues y lo que quieres conseguir...
explicándolos uno a uno, uno tras otro...)

Para los archivos word y excel tienen que ingresar con el archivo.xls, pueden tener acceso, pero si lo hace directamente por el explorador windows le pide contraseña.



...lo mismo... No sé si estás hablando de tu equipo, de otro equipo, de algo
que vas a distribuir de alguna manera... de ti, de un usuario que tiene que
abrir *tus* archivos, etc., etc. etc... sin *verlo* y con las explicaciones
que ofreces...

;-)

Muy cordialmente

Enric
Enric Mañas [MS MVP Office - PowerPoint]


"kaliman" escribió:

On 20 jun, 07:49, Enric Mañas [PowerPoint MVP]
wrote:
> Kaliman,
>
> Puedes mirar:
>
> http://www.microsoft.com/communitie...ault.as...
>
> y
>
> http://groups.google.es/group/micro...se_thre...
>
> ¿Versión de PowerPoint?
>
> ¿Con contraseña de apertura o de escritura?
>
> ¿Vas a usar PowerPoint o el Visor?
>
> ¿Has probado lo que pasa en cada caso?
>
> ¿Has probado a hacerlo con un *simple* Botón de acción” para que abra
> Supervision.pps?
>
> ¿Lo has probado haciéndolo así y usando el Visor?
>
> Y... lo más importante...
>
> ¿*QUÉ* quieres conseguir *EXACTAMENTE*?
>
> ;-)
>
> Cordialmente
>
> Enric
> Enric Mañas [MS MVP Office - PowerPoint]
>
> "kaliman" escribió:
>
>
>
> > Tengo un boton de comando que al hacer click debe abrir la
> > presentacion en power point
> > Supervision.ppt, el problema es que tiene contraseña y no lo puede
> > abrir si no ingreso la contaseña. Se podra colocar un codigo para
> > poder abrirlo, e intentado y nada hasta el momento.
>
> > Saludos,
>
> > Cesar
>
> > Private Sub CmdPoint_Click()
> > Dim DbPath As String
> > Dim oPowerPoint As PowerPoint.Application
> > Dim Password As String
> > DbPath = "D:\Cesar\Liderman Premiun\Power Point\Supervision.pps"
> > Password = "Gehova"
> > ' instanciamos una nueva ventana de Power Point
> > On Error Resume Next
>
> > Set oPowerPoint = GetObject(, "PowerPoint.Application")
> > If Err Then
> > Set oPowerPoint = New PowerPoint.Application
> > PPTWasNotRunning = True
> > End If
> > With oPowerPoint
> > ' la hacemos visible
> > .Visible = True
> > ' abrimos la Presentacion
> > .Presentations.Open DbPath, msoTrue
> > ' Documents.Open DbPath, True, False, True, Password
> > End With
> > Set oPowerPoint = Nothing
>
> > End Sub- Ocultar texto de la cita -
>
> - Mostrar texto de la cita -


No he probado con lo que me dices, voy a hacerlo.
La version es Power Point 2002
Contraseña de Apertura
Quiero usar Power Point
lo quiero para que no modifiquen el archivo.
Bueno tengo un programa en excel arhivos.xls con contraseña, desde
alli abro las aplicaciones de todos mis archivos tanto en word, excel
y tambien quiero hacerlo desde Power Point, no he podido.
Para los archivos word y excel tienen que ingresar con el
archivo.xls, pueden tener acceso, pero si lo hace directamente por el
explorador windows le pide contraseña.

Saludos,
Cesar

Preguntas similares