ME URGE DESPROTEGER UNA HOJA

Gracias Hector por procuparte, mira la verdad que el proveedor solamente
olvido darme la contraseña y como hoy no trabajaron, se tomaron el puente,
pues yo necesito entregar las lista a mas tardar mañana, espero que me
puedas ayudar a desprotejerla, GRACIAS.

La versión de Excel que tengo es la 2002

MUCHAS GRACIAS HECTOR. MAÑANA LO PONDRE A PRUEBA PUES LA RESPUESTA
DESGRACIADAMENTE LLEGO JUSTO CUANDO ESTAN POR CERRAR LA OFICINA, PERO MAÑANA
A PRIMERA HORA HARE LO QUE ME DICES. TE PIDO QUE SI TIENES LA OPORTUNIDAD DE
DARTE UNA VUELTA MAÑANA POR LA MAÑANA (POR SI TEGO UNA DUDA) OTRA VEZ
GRACIAS

PAKO

Hola, PAKO !

... un proveedor me envio su lista de precios pero ...
... esta protegida y no puedo ni buscar codigos ni precios
... si alguien me puede ayudar a desprotegerla (oviamente no se la clave) [...]
... pregunta concreta ... ¿... como quitar la clave de una hoja protegida sin saber la clave anterior?

1.- una hoja protegida NO 'impide' realizar busquedas en ella
[a menos que quieras usar autifiltros y NO esten -previamente- 'presentes' -o 'autorizados'- en la hoja]
2.- si el proveedor 'olvido' [o no 'puede'] darte la clave de la hoja...
'resulta obvio' que le interesa 'conservar protegida' la informacion :((
3.- si solo 'necesitas' buscar por autofiltros [punto 1] =>y TIENES ACCESO al proyecto de macros<=...
pon lo siguiente [en el editor de vba] en el modulo de codigo del libro =>ThisWorkbook< modifica el nombre de la hoja y la celda [por 'cualquiera'] DENTRO de la 'base de datos' ==Private Sub Workbook_Open()
With Worksheets("Hoja1")
.Protect UserInterfaceOnly:=True
If Not .AutoFilterMode Then .Range("a1").AutoFilter
.EnableAutoFilter = True
End With
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
4.- si 'todavia' necesitas/quieres 'brincar' la proteccion de la hoja =>BAJO TU PROPIO 'riesgo'<=...
¿que version utilizas de excel???

saludos,
Héctor.

Hola, PAKO !

... el proveedor solamente olvido darme la contraseña y como hoy no trabajaron [...]
... necesito entregar las lista a mas tardar mañana [...]
... version de Excel ... es la 2002

1.- si por hoja 'quisiste decir' libro =>el archivo 'pide' contraseña de acceso al abrirlo<= ...
[me temo que] 'tendras que' probar con [demos] 'rompe-claves' :((
existen sitios en internet con versiones 'de prueba' [p.e.]
[4 caracteres - las 'completas'... CUESTAN]
www.accessdata.com
www.crak.com
www.lostpassword.com
www.elkraft.unit.no/~huse/xlpassword.htm
www.elcomsoft.com/ae97pr.html
www.zuarin.de/sec_eng.htm
.si la clave es mas 'compleja' que las 'posibilidades' de los 'demos' ... solo 'queda' ...
- esperar a que alguien te 'ofrezca' que le envies el archivo y te lo vuelva 'des-protegido'
- comprar una version completa ???

2.- si es 'solamente' [alg]una hoja del libro ...
a) la version xp REQUIERE [obligadamente] la contraseña [hoja o libro NO 'archivo'] para la 'desproteccion' :((
b) si tienes acceso a versiones anteriores [2000 o '97], el siguiente codigo elimina la clave de la hoja 'activa'
== en un modulo de codigo 'normal' ==Sub RemoverPasswordEnHoja()
ActiveSheet.Protect "", , , , True
ActiveSheet.Range("a1").Copy ActiveSheet.Range("a1")
End Sub

4.- si la 'urgencia' es 'extrema', podrias copiar la hoja [siempre y cuando tengas 'acceso' al archivo] con 'algo' como:
en un modulo de codigo 'normal' ==Sub Copiar_Hoja()
ActiveSheet.Cells.Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

saludos,
Héctor.

Hola, PAKO !

una aclaracion para la macro del punto 4 [se me 'chispotio'] :))

4.- si la 'urgencia' es 'extrema', podrias copiar la hoja [siempre y cuando tengas 'acceso' al archivo] con 'algo' como:
en un modulo de codigo 'normal' ==> Sub Copiar_Hoja()
ActiveSheet.Cells.Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

'partiendo de' una hoja 'en blanco' [de un libro 'cualquiera'] => te cambias al libro y a la hoja protegida y la ejecutas <
saludos,
Héctor.