Hola a todos

Tengo tres libros protegidos y cifrados. Los tres libros tienen la misma contraseña.

Mi pregunta se refiere, a que cuando se carga el imputbox de petición de contraseña al abrir el primer libro, sería posible, copiar esa contraseña introducida de alguna menera haciendo que se abra el segundo libro y se pegue en el imputbox correspondiente, haciendo lo mismo con el tercer libro.

He mirado y en vba no queda constancia de ese imputbox de apertura que usa el excel 365 al proteger con contraseña y cifrar el fichero.

Un saludo y muchas gracias

Hace 21 horas, el_trasgu dijo:

He mirado y en vba no queda constancia de ese imputbox de apertura que usa el excel 365 al proteger con contraseña y cifrar el fichero.

Pues así, a bote pronto y de una pensada rápida sí sería posible. Sube tus tres libros o prepara un ejemplo con tres libros y su contraseña

Si me lo permites, por lo sensible de la información, he creado tres ficheros vacíos de la misma forma que los originales.

La contraseña en los tres es la misma: 12345

Gracias por el tiempo que me dedicas.

En el trabajo tengo los tres ficheros, donde tengo que introducir información en cada uno de ellos, son tres informes que cada uno de los que estamos en el mismo puesto de trabajo, rellenamos en cada turno, tres de mañana, tres de tarde y tres de noche.

La contraseña es corporativa, y como puedes comprender, se trata de un serie alfanumérica que cambia cada tres meses, y es un engorro tener que meterla tres veces para tres informes.

La idea, sería meter la cotraseña en el primer imputbox que desprende el primer fichero, almacenarla en una variable y usarla para una vez abierto el segundo y tercer fichero por código vba, usar la variable para introducir la contraseña guardada en el imputbox que corresponde a cada uno de los dos ficheros abiertos y así meter una sola vez la contraseña.

Lo curioso, es que podríamos modificar cada uno de los ficheros por vba y sin embargo, no podemos crear ni almacenar nuevos ficheros, ni siquiera de texto, en ninguno de los directorios del sistema. Pues hasta hace unos meses teníamos un fichero de texto con la contraseña que copiábamos y luego pegábamos al iniciar los ficheros.

Pero nos pillaron y nos prohibieron de repetirlo

Un saludo y muchas gracias

Pass3.xlsm Pass1.xlsm Pass2.xlsm

En 7/10/2020 at 0:14 , el_trasgu dijo:

Si me lo permites, por lo sensible de la información, he creado tres ficheros vacíos de la misma forma que los originales.

Lo siento, creí que eran userform normales, pero tus libros están protegidos internamente (Proteger Libro)

Ese form es interno de Excel y no se puede acceder a su código para poder llmara a otros librros ?

Hola

El método Open del objeto Workbook permite un parámetro para colocar la clave:

Workbooks.Open Filename:=ThisWorkbook.Path & "\libro1blablabla.xlsx", Password:="123"

  Puedes usarlo tres veces seguida, o algo así, y listo.

Pues "avalencia", muchísimas gracias, es exactamente lo que buscaba

Private Sub Workbook_Open()
    Dim pass As Integer
    pass = 12345
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Pass2.xlsm", Password:=pass
End Sub

De ésta forma me queda perfecto, y puego usar la variable "pass" para procesarla y editarla cuanto estime necesario.

En 9/10/2020 at 15:08 , avalencia dijo:

Hola

El método Open del objeto Workbook permite un parámetro para colocar la clave:

Workbooks.Open Filename:=ThisWorkbook.Path & "\libro1blablabla.xlsx", Password:="123"

  Puedes usarlo tres veces seguida, o algo así, y listo.

Me gusta como nombras tus archivos "libro1blablabla.xlsx"