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