Quitar Contraseña A Una Hoja De Excel 2010
Enviado por efrain0624 • 22 de Septiembre de 2012 • 257 Palabras (2 Páginas) • 1.685 Visitas
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
...