Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Adobe Acrobat » Alguien que controle en pdf

Adobe Acrobat - Alguien que controle en pdf

Volver
Nuevo Tema
<<>>
 
Vista:

Alguien que controle en pdf

Publicado por MIGUEL (1 intervención) el 18/11/2001 17:32:01
tengo archivos pdf con contraseña como puedeo desde VB o Access ejecutalos con la contraseña incluida, para que solo lo abra directamente si pedir contraseña...........Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Abrir archivos PDF protegidos por contraseña desde VB o Access

Publicado por Alejandro (154 intervenciones) el 03/07/2023 19:58:43
Para abrir archivos PDF protegidos por contraseña directamente desde Visual Basic (VB) o Access, puedes utilizar la biblioteca Adobe Acrobat y realizar la siguiente programación:

1. Asegúrate de tener instalada la biblioteca Adobe Acrobat en tu sistema. Puedes descargarla e instalarla desde el sitio web oficial de Adobe.

2. En tu proyecto de VB o Access, asegúrate de hacer referencia a la biblioteca Adobe Acrobat. Para hacerlo, ve al menú "Herramientas" y selecciona "Referencias". En la ventana de Referencias, busca y marca la opción "Adobe Acrobat XX.0 Type Library" (donde "XX" representa la versión instalada de Adobe Acrobat). Luego, haz clic en "Aceptar" para agregar la referencia a tu proyecto.

3. Utiliza el siguiente código en tu proyecto para abrir el archivo PDF protegido por contraseña:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub AbrirPDFContrasena()
    Dim objApp As Acrobat.AcroApp
    Dim objAVDoc As Acrobat.AcroAVDoc
    Dim objPDDoc As Acrobat.AcroPDDoc
    Dim strFilePath As String
    Dim strPassword As String
 
    ' Ruta del archivo PDF protegido por contraseña '
    strFilePath = "C:\Ruta\Archivo.pdf"
 
    ' Contraseña del archivo PDF '
    strPassword = "TuContrasena"
 
    ' Crea una instancia de la aplicación Acrobat '
    Set objApp = CreateObject("AcroExch.App")
 
    ' Crea una instancia del documento AV '
    Set objAVDoc = CreateObject("AcroExch.AVDoc")
 
    ' Abre el documento AV '
    If objAVDoc.Open(strFilePath, "") Then
        ' Desbloquea el documento AV con la contraseña '
        If objAVDoc.CheckPassword(strPassword) Then
            ' Crea una instancia del documento PD '
            Set objPDDoc = objAVDoc.GetPDDoc()
 
            ' Realiza las operaciones necesarias en el documento PD '
            ' Por ejemplo, puedes acceder a los campos del formulario o realizar manipulaciones en el PDF '
 
            ' Cierra el documento PD '
            objPDDoc.Close
 
            ' Cierra el documento AV '
            objAVDoc.Close True
        Else
            MsgBox "Contraseña incorrecta", vbExclamation
        End If
    Else
        MsgBox "No se pudo abrir el archivo PDF", vbExclamation
    End If
 
    ' Cierra la aplicación Acrobat '
    objApp.Exit
    Set objApp = Nothing
End Sub

Asegúrate de reemplazar "C:\Ruta\Archivo.pdf" con la ruta y nombre del archivo PDF que deseas abrir, y "TuContrasena" con la contraseña correspondiente al archivo PDF.

Este código crea una instancia de la aplicación Adobe Acrobat, abre el archivo PDF utilizando el documento AV (AcroAVDoc) y desbloquea el documento con la contraseña especificada. Luego, puedes realizar las operaciones necesarias en el documento PD (AcroPDDoc) según tus requerimientos.

Ten en cuenta que este código asume que tienes instalada una versión de Adobe Acrobat compatible y que la biblioteca Adobe Acrobat está correctamente referenciada en tu proyecto.

Espero que esta solución te sea útil para abrir archivos PDF protegidos por contraseña desde VB o Access.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar