La verdad no me gustan mucho estos temas (creo), pero alguna vez nos pasa que le ponemos password a un libro o página de excel y no podemos o se nos olvido la clave, aquí les presento este material que se debe instalar cada vez que lo necesiten, se busca en en el menú principal, herrramientas y aparece una nueva función etc, etc, para bajarlo un click a la imagen, usenlo decentemente, un saludo cuidense.
otro
programa par quitar pass de excel que sirve para el 2007, el botón se instala en la pestaña de complementos y de ahí se habre el libro que se quiere utilizar, el nuevo botón aparece en la pestaña complementos (tengan paciencia se tarda en rehacer una nueva clave que tienen que anotar, parece que se congelo la imagen pero NO) ya lo probe y OK .
Y por último,complicado pero funcional pegar el siguiente código en un modulo de visual y lo ejecutas.
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 "¡Enorabuena!" & 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
ya lo probe y funciono la
fuente original es aquí
http://lackfer.uni.cc/youtube/
