Quitar contraseña a una hoja de Excel 2010

06.07.2013 a las 16:32 hs 0 429 0

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 & Chr(k) & _
Chr & 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 & _
Chr(k) & Chr & 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

saludes,

interblink

Posteado por:

interblink

Administrador

0 Comentarios

Cargando comentarios espera un momento...

No tienes permisos para comentar.

Para comentar necesitas estar Registrado. O.. ya tienes usuario? Logueate!

Ir al cielo

Tags:

quitar hoja excel 2010 password contrasena

Posts Relacionados: