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.
聽
聽
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