
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



