como quito el password de un libro desde otro

hola, isaac !

Tengo activo el libro1.xls y quiero desactivar el password de la hoja1 pero del libro2.xls y que me deje en a1 de la hoja1 del libro1.xls
tengo esta macro que la corro desde libro1.xls. pero no me funciona
Windows("libro2.xls").Activate
Hoja1.Visible = True
Hoja1.Unprotect Password = Y6dhet5
hoja1.Range("a1").Select
me hace visible la hoja1 del libro1 y me desproteje la hoja1 tambien del libro uno.
Alguien me puede dar una ayudadita, gracias

1) la 'variable' que estas indicandole al codigo: -> Hoja1...
[asumo que]... ES el 'CodeName' de la hoja1 del libro2 PERO [hasta donde se]...
NO puedes 'administrar' las variables de un libro2... desde el codigo de un libro1 :-((
-> a menos que establezcas referencias entre ambos proyectos de macros :))

2) asumiendo que el nombre de 'Hoja1' de libro2 [en su etiqueta] ES 'Hoja1' -?-
prueba con las siguientes modificaciones:

With Workbooks("libro2.xls").Worksheets("hoja1")
.Visible = xlSheetVisible
.Unprotect "Y6dhet5"
End With

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hector:

le pass lo asigno a cada modulo con la linea:

ActiveSheet.Protect Password = Y6dhet5, DrawingObjects:=True,
Contents:=True, Scenarios:=True

al correr el codigo que me pasaste:

With Workbooks("libro2.xls").Worksheets("hoja1")
.Visible = xlSheetVisible
.Unprotect "Y6dhet5"
End With

me dice que el pass es erroneo

hice la modificacion siguiente:

With Workbooks("libro2.xls").Worksheets("hoja1")
.Visible = xlSheetVisible
.Unprotect Password = Y6dhet5
End With

y funciono a la perfección.

Gracias por tu ayuda, saludos desde Michoacan


Héctor Miguel ha escrito:

hola, isaac !

> Tengo activo el libro1.xls y quiero desactivar el password de la hoja1 pero del libro2.xls y que me deje en a1 de la hoja1 del libro1.xls
> tengo esta macro que la corro desde libro1.xls. pero no me funciona
> Windows("libro2.xls").Activate
> Hoja1.Visible = True
> Hoja1.Unprotect Password = Y6dhet5
> hoja1.Range("a1").Select
> me hace visible la hoja1 del libro1 y me desproteje la hoja1 tambien del libro uno.
> Alguien me puede dar una ayudadita, gracias

1) la 'variable' que estas indicandole al codigo: -> Hoja1...
[asumo que]... ES el 'CodeName' de la hoja1 del libro2 PERO [hasta donde se]...
NO puedes 'administrar' las variables de un libro2... desde el codigo de un libro1 :-((
-> a menos que establezcas referencias entre ambos proyectos de macros :))

2) asumiendo que el nombre de 'Hoja1' de libro2 [en su etiqueta] ES 'Hoja1' -?-
prueba con las siguientes modificaciones:

With Workbooks("libro2.xls").Worksheets("hoja1")
.Visible = xlSheetVisible
.Unprotect "Y6dhet5"
End With

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, isaac !

le pass lo asigno a cada modulo con la linea:
ActiveSheet.Protect Password = Y6dhet5, DrawingObjects:=True, Contents:=True, Scenarios:=True
al correr el codigo que me pasaste:

With Workbooks("libro2.xls").Worksheets("hoja1")
.Visible = xlSheetVisible
.Unprotect "Y6dhet5"
End With

me dice que el pass es erroneo
hice la modificacion siguiente:
With Workbooks("libro2.xls").Worksheets("hoja1")
.Visible = xlSheetVisible
.Unprotect Password = Y6dhet5
End With
y funciono a la perfeccion...

existe la posibilidad de que la expresion: -> Y6dhet5 sea en realidad una variable de tipo String asignada desde antes ???

comentas si el asunto va por otro camino ?
saludos,
hector.