Solución VBA:
Cree esta rutina Sub en el archivo de Excel sin contraseña y ejecútelo. Este código abrirá el archivo protegido por contraseña y leerá la contraseña. Así que escribe la misma contraseña con la línea Set Wbk2.
Sub WorkbookOpen()
Application.ScreenUpdating = False
Dim wbk1 As Workbook
Dim wbk2 As Workbook
Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(Filename:="Your Path", Password:="your Password")
Set wbk1 = Nothing
Set wbk2 = Nothing
MsgBox "Logged the File."
Application.ScreenUpdating = True
End Sub
Solución no VBA:
A veces, debido a los complementos instalados, surge este problema. Para deshacerme de eso, me gustaría sugerirle que haga lo siguiente.
- Haga clic en Archivo y luego en Opciones.
- Hit Centro de confianza, Configuración del Centro de confianza, Complementos.
- Compruebe el último, Deshabilitar todos los complementos.
- Cierre Excel, reinicie la computadora y abra el archivo.
NÓTESE BIEN: Después de abrir el archivo, habilite todos los complementos.
Otro es,
- Archivo, Opción.
- Centro de confianza, Configuración del centro de confianza, Ubicaciones de confianza.
- Confirme si está guardando su archivo en una ubicación de confianza.
- Cierre Excel, reinicie la computadora y abra el archivo.
wbk2.save
después lo has puesto aNothing
?