¿Cómo abrir un documento protegido con contraseña desde Excel VBA?

Abrir un documento de Excel protegido con contraseña mediante VBA es posible utilizando el objeto `Workbooks.Open` y el argumento `Password`. Aquí tienes un ejemplo de cómo lograrlo:

Sub AbrirDocumentoProtegido()
    Dim rutaArchivo As String
    Dim contrasena As String
    Dim libro As Workbook
    
    ' Establece la ruta completa del archivo que deseas abrir
    rutaArchivo = "C:rutadelarchivoejemplo.xlsx"
    
    ' Establece la contraseña del archivo
    contrasena = "tu_contraseña_aquí"
    
    ' Abre el libro de Excel protegido con contraseña
    On Error Resume Next
    Set libro = Workbooks.Open(Filename:=rutaArchivo, Password:=contrasena)
    On Error GoTo 0
    
    ' Verifica si el archivo fue abierto correctamente
    If Not libro Is Nothing Then
        MsgBox "El archivo se abrió correctamente."
        ' Aquí puedes añadir el código que necesites para trabajar con el libro
    Else
        MsgBox "No se pudo abrir el archivo. Verifica la ruta y la contraseña."
    End If
End Sub

Puntos a tener en cuenta:

  • Rutas y Contraseña: Asegúrate de que `rutaArchivo` y `contrasena` se correspondan con el archivo y la contraseña correctos.
  • Errores: Utilizamos `On Error Resume Next` para manejar potenciales errores al intentar abrir el archivo. Es importante controlar los errores de manera adecuada, especialmente en entornos de producción.
  • Seguridad: Almacenar contraseñas en texto plano dentro de macros no es seguro. Considera mejorar esto con prácticas más seguras de manejo de contraseñas si esta macro se va a utilizar en un entorno donde la seguridad es crítica.

Este script abrirá el archivo si la ruta y la contraseña son correctas. Puedes expandirlo para realizar acciones adicionales en el archivo una vez que esté abierto.

Conoce nuestros servicios

Conoce nuestra tienda

Mejora tu nivel y logra tus objetivo

Excel

Excel cursos

Access

cursos de Access

Power BI

cursos power BI

Deja un comentario