Principal › Trucos Informática

Desproteger hojas de Excel

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

Trucos ExcelTrucos 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.


Comentarios

Lun, 08/06/2009 - 15:12 — pedro (no verificado)

comentar el truco

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

Mié, 30/06/2010 - 12:19 — PEDRO BOLLO (no verificado)

desbloquear un archivo excel con contraseña olvidad

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.

Lun, 05/07/2010 - 22:08 — Tronico

Contraseña hoja de excel

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

Lun, 08/06/2009 - 15:14 — PEDRO (no verificado)

comentar truco

Lo utilice con excel 2003.

Lun, 08/06/2009 - 22:16 — Tronico

Desproteger hojas de Excel

Gracias Pedro