Saltar al contenido
PROGRAMAR EN VBA MACROS DE EXCEL

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

Macro Excel abre archivo Word con password

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.

  
 
 
Puedes ver la macro en acción y una explicación más detallada de su codificación y funcionamiento, descarga el archivo y mira el video para una más fácil comprensión de la macro; suscribe a nuestro canal de You Tube, mira los playlist con  Vídeos de Macros de Excel con Ejemplos Gratis para Descargar donde podrás ver la macros relacionadas en acción con una explicación en forma visual que ayudará a entender el ejemplo en forma más fácil. Te pido que apoyes al canal;  suscribe y comenta en DTube y Odysee para poder seguir publicado macros gratis.
 
 
 

MACRO PARA ARCHIVO COMPRIMIDO ZIP CON TODOS LOS FICHEROS Y CARPETAS DE UN DIRECTORIO

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.

Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.

If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.

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