Desbloquear hoja de cálculo.

[David Met]

Ayer, encontré en mis copias de seguridad, un archivo excel que había echo por el año 2.001. Es para calcular la presión atmosférica (convierte la presión mmHg a Hpa); calcula la Tensión de Saturación; Humedad Relativa; Punto de Rocío y alguna que otra cosita.
Lamentablemente, la había protegido y no me acordaba la contraseña. Por fortuna, solo la había protegido contra modificación; pero lo malo es que no podía usarla 

En fin, buscando por internet, di con una macro que quita dicha protección. La quiero compartir con todos ustedes por si algún día lo necesitan

Código [Seleccionar] Expandir

Sub Quitar_contraseña()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, f As Integer
Dim a1 As Integer, a2 As Integer, a3 As Integer
Dim a4 As Integer, a5 As Integer, a6 As Integer
On Error Resume Next
For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
Contraseña = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _
& Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f)
ActiveSheet.Unprotect Contraseña
If ActiveSheet.ProtectContents = False Then
MsgBox "¡Excelente!" & vbCr & "Se ha quitado la contraseña:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub