Tiempo atrás necesitaba desbloquear una hoja en Excel, ya que era un archivo al cual el dueño había olvidado el password de protección. Por lo tanto cada vez que deseaba modificar algo en esa hoja en particular me aparecía este mensaje:

En general el bloquear hojas es muy útil para evitar que alguien accidentalmente cambié fórmulas u otro tipo de datos.
Pero en este caso en particular era absolutamente necesario descifrar la clave para poder modificar fórmulas.

Fue así como Googleando encontré la siguiente macro que descifra cualquier clave en una hoja de una planilla Excel. Este algoritmo utiliza “fuerza bruta” para descifrar la clave (es decir intenta con todas la combinaciones de letras/números posible).

******************************************************************* 

Sub QuiebraPassword()

Dim i, j, k As Integer
Dim l, m, n As Integer
Dim i1, i2, i3 As Integer
Dim i4, i5, i6 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 "Una possible password es " & 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

********************************************************************

Esta macro la deben colocar en el editor de VBA del Excel. Luego se puede ejecutar directamente sobre la hoja protegida. La idea es que luego que obtengan la clave la cambien por una que no se les olvide.

Para más información sobre servicios de optimización mediante el uso de macros en Excel (VBA), por favor contáctenos