Quitar Contraseña A Una Hoja De Excel 2010

Buen dia, no te ha pasado que le pones una contraseña a tu hoja de Excel para que nadie toque nada de lo que has hecho, pero casualmente se te olvido a ti la dichosa contraseña pues aqui la solucion.

para quitar contraseña a una aoja de Excel 2010

Primero que todo ir a la hoja que esta protegida, luego precionar Alt-f8, en el nombre poner cualquiera que se te ocurra,

luego le dan crear,

luegon borren lo que les salga en la ventana y pegan esto:

Sub breakit()

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 "Un password valido 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

despues le dan ejecutar la cual se encuentra en la barra de herramientas y

listo les va a dar una clave valida pero no importa ya que la hoja ya no tiene contraseña.

Espero les sirva

...