Desproteger hojas de Excel

Trucos ExcelEn nuestra sección de Trucos Excel traemos un truco para desproteger hojas de excel.

Trucos Excel: desproteger hojas de excel
Si en alguna ocasión hemos protegido una hoja de excel con contraseña y no la recordamos, podemos echar mano de éste truco que consiste en poner el siguiente código en un módulo y ejecutarlo:

Sub DesprotegerHoja()

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub

Yo particularmente nunca lo he usado por lo que rogaría que si alguien lo prueba nos comente que tal va y en que versión de office excel.

Categorías: 

Comentarios

Excelente el aporte, lo utilice y me funciono a la perfección, gracias.

A mí me está pasando. No sé como desbloquear el arhivo con una contraseña que puse en su momento pero que ya no la recuerdo.
Así es que me vendría de perlas probar ese truco, sin embargo no entiendo que es un MODULO?
Vamos, que no sé donde poner ese código para poder desbloquear mi archivo.

Te vas a Herramientas -> Macro -> Editor de Visual Basic -> Insertar -> Módulo y ahí pegas el código, luego te sales y te vas a Herramientas ->Macro -> Macros... -> Ejecutar

Que tal...solo quiero decirte que tu truco me fue muy útil. Gracias por subirlo a la red.

Muy bueno el aporte. Funciona perfectamente.
Gracias

Lo utilice con excel 2003.

Uso Office 2011 para Mac y funciono a la perfección me ha sido de muchisima utilidad, en particular use esta rutina: (citada de trucosaurio)

1. Abre normalmente el archivo Excel que quieres desbloquear o desproteger.

2. Pulsa ALT + F8 y se te abrirá una ventana; en el nombre del macro pones “Trucosaurio - Excel” o un nombre a tu elección, y pulsa el botón Crear.

3. Se te abrirá una nueva ventana, allí sustituyes y borras todo lo que esta escrito y lo reemplazas por el código.

4. Pulsa el botón Ejecutar desde el menú o desde la barra de herramientas.

Si todo salio bien, veras un mensaje que dice: “La contraseña es: AAAAA…”;no es la que originalmente tenia, pero funciona perfectamente. De ahora en más, podras modificar todas las celdas bloquedas.

Gracias por el aporte.

Excelente truco me funciono en office mac 2011! Gracias

Hola, me puedes decir como lo hiciste en MAC, me sale un error que no encuentra el proyecto o biblioteca y abre el depurador.

gracias

Sólo seguí el tutorial mostrado aquí y me funciono, no me dio ningún error!