Como ABRIR Archivo WORD con PASSWORD desde un LISTBOX de Excel VBA #603

CONECTAR EXCEL CON WORD – ABRIR ARCHIVO DE WORD CON CONTRASEÑA CON UNA MACRO DE EXCEL VBA

En este ejemplo se presenta una macro solicitada por un suscriptor de nuestros canales, el cual requería abrir un archivo de Word con Password o Clave desde Excel a través de una macro, pues bien eso hace el ejemplo que se presenta hoy, vamos a realizar una macro que permita manipular Word desde Excel, se va listar una serie de archivos en un listbox de Excel y abrir un archivo de word que se selecciones, pero dicho archivo de Word tiene clave de apertura, la cual la macro de Excel resolverá para poder abrir el archivo de Word desde Excel.

Maneja Excel como los mejores deberías hacer click acá, si quieres aprender sobre Excel en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los ❤️MEJORES CURSOS de EXCEL ON LINE❤️ que he visto en internet, te lo recomiendo no te arrepentirás.

  

Al presionar el botón que se encuentra en la hoja de Excel se mostrará un formulario que lista una serie de archivos desde una carpeta que seleccionemos, en el ejemplo existe en los archivos listados un archivo de Word que contiene clave, la clave es «1234», esta clave es la que deberá usar la macro para poder abrir el archivo de Word con Password desde Excel a través de una Macro de VBA.

En este ejemplo no se mostrará como listar archivos en un listbox de Excel, si requieren saber sobre ello vean el link con todos los ejemplos que tratan y explican el tema de listar archivos en listbox de Excel, aca solo se explicará como abrir un archivo de Word con Clave desde Excel.

Una vez listados los archivos de puede hacer dobleclick en un archivo de Word y la macro abrirá el mismo, en este ejemplo el fichero de Word tiene una clave de acceso, la macro abrirá igualmente dicho archivo encriptado.

Cuando se hace doble click sobre el fichero de Word listada se ejecuta la macro que en primer lugar determina la ruta del archivo a abrir, saca dicha dirección de la columna 1 del listbox, así:

archi1 = UserForm9.ListBox1.List(UserForm9.ListBox1.ListIndex, 1)

El siguiente código permite extraer la extensión del archivo, para saber de que archivo se trata, esto esta previsto para que se pueda abrir cualquier tipo de archivo desde Excel, pero dependiendo la extensión del archivo es el programa que deberá utilizar para abrir el archivo, para ello se usan los siguientes códigos.

cad = StrReverse(archi1)
lug = InStr(cad, «.»)
ext = Mid(cad, 1, lug – 1)
archi = StrReverse(ext)

Se saca de la columna 3 del listbox cual es la ruta completa donde se encuentra el archivo de Word, de la siguiente manera:
path1 = UserForm9.ListBox1.List(UserForm9.ListBox1.ListIndex, 3)

El siguiente código verifica si existe el archivo que está en la ruta anterior, con el siguiente código:

Set verexi = CreateObject(«Scripting.FileSystemObject»)
If verexi.FileExists(path1) Then

Dependiendo de la extensión del archivo determinada más arriba será el programa que se deba abrir, ya que si el archivo es un PDF se debe usar otro programa para su apertura, en el caso que sea un archivo con extensión de Word, ya sea: doc, doc, o docba; se debe abrir Word, se usa el siguiente código:

Select Case archi
Case Is = «pdf»
ActiveWorkbook.FollowHyperlink path1, , True
Case Is = «docx», «doc», «docm», «docba»

Como el archivo seleccionado en el listbox es un archivo de Word, se procederá a abrir Word en primer lugar y luego el archivo con clave que necesitamos abrir, se usa el código:

Set wdApp = CreateObject(«Word.Application»)

Ahora viene el código que se necesita usar para abrir el archivo de Word con Password, para ello, se debe establecer la ruta del archivo a abrir y agregarle el parámetro con la clave del archivo, recordemos que la clave usada en el ejemplo es «1234», el código es el siguiente:

Set wdDoc = wdApp.Documents.Open(path1, PasswordDocument:=»1234″)

Luego se hace visible la aplicación de Word, se activa y Maximiza la ventana, con los siguientes códigos:
wdApp.Visible = True
wdDoc.Activate
ActiveWindow.WindowState = xlMaximized

Código Para Abrir Fichero de Word con Clave desde una Macro de Excel

Código que va en un UserForm VBA Excel

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Application.DisplayAlerts = False
archi1 = UserForm9.ListBox1.List(UserForm9.ListBox1.ListIndex, 1)
cad = StrReverse(archi1)
lug = InStr(cad, «.»)
ext = Mid(cad, 1, lug – 1)
archi = StrReverse(ext)
path1 = UserForm9.ListBox1.List(UserForm9.ListBox1.ListIndex, 3)

Set verexi = CreateObject(«Scripting.FileSystemObject»)
If verexi.FileExists(path1) Then

Select Case archi

Case Is = «pdf»
ActiveWorkbook.FollowHyperlink path1, , True

Case Is = «docx», «doc», «docm», «docba»

Set wdApp = CreateObject(«Word.Application»)
Set wdDoc = wdApp.Documents.Open(path1, PasswordDocument:=»1234″)

wdApp.Visible = True
wdDoc.Activate
ActiveWindow.WindowState = xlMaximized
Exit Sub

End Select
End If

End Sub

DESCARGA LA MACRO PARA ABRIR UN ARCHIVO DE WORD CON PASSWORD DESDE EXCEL

Descarga el fichero usado como ejemplo en este post y en el vídeo explicativo, el mismo es totalmente gratuito y su uso es libre, solicito aportar para sostener esta web, si está dentro de tus posibilidades, desde ya muchas gracias.

Donate:
👉⏩ Cuenta Paypal: https://paypal.me/programarexcel

👉⏩ Cuenta Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd

👉⏩ Cuenta Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407

👉⏩ Cuenta Skrill: marcrodos@yahoo.es

👉⏩ Cuenta Neteller: marcrodos@yahoo.es

👉⏩ Apoya mi trabajo https://www.patreon.com/programarexcel

👉⏩ Sígueme en DTube: https://d.tube/#!/c/programarexcel01

👉⏩ Sígueme en Odysee: https://odysee.com/@programarexcel:3