Pregunta al Grupo

hola, fco javier !

Yo uso la version de Excel 2003

puedes usar el mismo algoritmo de la pagina que te recomendo Pedro J.
(solo cambia el objeto al que se esta aplicando y las propiedades)...
segun la "complejidad" de la clave, sera el tiempo que le tome :))

saludos,
hector.

Sub RemoverPasswordLibro()
' author: uinknown ! '
Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer, _
i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
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: On Error Resume Next
With ActiveWorkbook: .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 Not .ProtectStructure And Not .ProtectWindows Then MsgBox "Libro Desprotegido !!!": Exit Sub
End With: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next
End Sub

Gracias lo pondre en practica
te comento cualquir detalle
"Héctor Miguel" escribió en el mensaje
news:

hola, fco javier !

Yo uso la version de Excel 2003

puedes usar el mismo algoritmo de la pagina que te recomendo Pedro J.
(solo cambia el objeto al que se esta aplicando y las propiedades)...
segun la "complejidad" de la clave, sera el tiempo que le tome :))

saludos,
hector.

Sub RemoverPasswordLibro()
' author: uinknown ! '
Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer,
n As Integer, _
i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer, i5 As
Integer, i6 As Integer
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: On Error Resume Next
With ActiveWorkbook: .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 Not .ProtectStructure And Not .ProtectWindows Then MsgBox "Libro
Desprotegido !!!": Exit Sub
End With: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next:
Next: Next
End Sub