Ofimática - Como desproteger hoja de word

Como desprotejo hoja de word

eN EL EDITOR DE VISUAL INSETA UN MOULO Y COPIA ESTO, LUEGO EJECUTA EL MACRO

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 "One usable password is " & 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

Word no tiene protección alguna, es tan fácil como que abras el ejecutable de Word, te vas al menú insertar, elijas la opción archivo yselecciones el archivo que está protegido, voila!!! la protección ya no existe.

Saludos.

Decía Einstein que "Se debe hacer todo tan sencillo como sea posible, pero no más sencillo.

Gracias Milton.

EXCELENTE COMENTARIO.--- ME RE AYUDOO.. GRACIAS