[RESUELTO]Desproteger hojas sin saber las claves

[senda678]

Hola buenas tardes, he visto en el foro que en una la versión 3.... había un fallo y se podían des-proteger las hojas con una maro, sin conocer las claves
Yo tengo la versión Versión: 6.4.2.2 (x64), sabéis de una macro que pueda hacerlo???

Gracias

[PepeOooSevilla]

Hola.
Haz pruebas con lo que nos comenta nuestro compañero iagodb en:

• * Contraseña contenido protegido

Saludos cordiales.

[senda678]

Muchas gracias, no me ha funcionado pero sigo buscando.

Si encuentro algo os lo comparto.

Un saludo.

[senda678]

hola buenas, navegando mucho por internet he encontrado esto, y tiene muy buena pinta, lo unico que a mi no me encuentra el archivo si alguien que sepa bastante lo revisa yo creo que con esto podriamos descifrar las claves.

Suerte

un saludo

adjunto archivo

[senda678]

hola de nuevo, acabo de hacer una prueba y me funciona para ver todas las claves de una hoja de calc.
El archivo
1. Change extention .ods to .zip (Right click file and change extention)
2. Extract the .zip file in a folder using Archive Manager
3. Open the: content.xml file with Writer
4. Find: table:protected="true"
5. Change "true" to "false"
6. Save the content.xml file and close Writer
7. From Files, drag and drop the previously modified content.xml file into the .zip file
8. Change extension from .zip to .ods
9. The document is now unprotected, and you can edit it.

Quiero seguir investigando con la macro anterior u otra que lo haga dando a un botón.

Un saludo

[senda678]

Hola buenos días, os adjunto una macro que he creado que rompe todas las claves numéricas de las hojas de calc, por si habéis perdido las claves.
Un saludo.

Sub breakSheetPassword( sheetName as String)

dim sheettounlock as object
sheettounlock = ThisComponent.Sheets.getByName(sheetName)

Dim i As Integer
On Error Resume Next

For i = 1 To 9999:
sheettounlock.Unprotect( i )
Next:

End Sub

Sub BreakAllPaswords2()
Dim i as integer
msgbox "empieza desprotección"
For i = 0 To ThisComponent.Sheets.Count - 1
breakSheetPassword(ThisComponent.Sheets(i).Name)
Next
msgbox "CUIDADO, Todas las hojas estan desprotegidas"
End Sub

[mriosv]

Por una parte si la protección es de las hojas del archivo, efectivamente se puede acceder, editando los archivos, o probablemente con la macro anterior.
Si la protección es al archivo en si, excepto que sea una clave realmente floja, ni con fuerza bruta es posible desprotegerlo.