Desproteger Hoja Excel 2013 12693k

pituco 15 jun 2012, 15:14 Click con el ratón en el nombre de la hoja que se quiere desproteger. Click con el ratón en Ver código. Copiar y pegar el siguiente código macro VBA. Public Sub decod() On Error Resume Next: c = Space(10) For a = 0 To 1: Do While p < 10: p = p + 1: Mid(c, p) = a: a = 0: Loop For j = 32 To 126: Unprotect c & a & Chr(j) If Not ProtectContents Then MsgBox "Clave » " & c & a & Chr(j): End Next: Do While a = 1: a = Mid(c, p, 1): p = p - 1: Loop: Next End Sub Regresar a la hoja Excel que se desea desproteger. Ir a Herramientas, Macro, Macros, Ejecutar. Y ¡¡voila!! aparece la clave alternativa y la hoja desprotegida.