Ciclo para abrir Libro con contraseña de apertura

[truquinho]

Hola haber si alguien me puede ayudar.

Tengo un archivo de Excel protegido con contraseña de apertura llamado OK, el problema es que solo me acuerdo de los caracteres de la contraseña y no de los...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jose pablo]

Posible solucion pero no se como detenerlo cuando encuentra la clave...


Sub abre_Arc()


Dim x As Integer
Dim clave As String

For x = 1900 To 10000
clave = "Segrhinfo" & x
On Error Resume Next...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Prueba con esto:

Sub BUSCAR_CLAVE()
On Error GoTo BUCLE
x = 1899
BUCLE:
  x = x + 1
  While x < 10001
     Workbooks.Open "C:\temp\OK.xls", Password:="Segrhinfo" & x
     MsgBox "La clave es...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí