Desproteger hoja de Excel 2010-2013

Aviso importante: esto no es el servicio técnico de Microsoft Office, sólo una página con un pequeño truco que de manera rápida y efectiva te ayuda a desbloquear hojas de Excel. Si sigues al pie de la letra las instrucciones podrás desproteger tu archivo en menos de 2 minutos. Si tienes problemas, lo siento, pero no puedo ayudarte más.

Pues resulta que en uno de mis empleos uso una hoja de cálculo para labores administrativas, este archivo XLSX lo obtengo de una plataforma online y lo descargo a mi laptop, le cargo los datos que debo y listo, guardo y vuelvo a subir a la plataforma. El caso es que la hoja la edito en Excel y está protegida, no puedo acceder a ciertos datos ni modificarlos, y la verdad eso no me agrada, así que recordé una técnica muy arcaíca pero sumamente útil, y la comparto para todos aquellos que necesiten desproteger una hoja en Excel 2010-2013 (o anteriores).

Simplemente hay que cubrir los siguientes pasos:

1. Abrir el archivo usando Excel. Aquí podemos observar que tres hojas están protegidas.

2. Abrir el Editor de Visual Basic, basta con pulsar al mismo tiempo ALT y F11. Se abre en una nueva ventana.

3. Copiar y pegar el siguiente código:

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 "El password 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

4. Cerrar el editor.

5. Pulsamos ALT + F8 para seleccionar la hoja a desbloquear y ejecutamos el macro breakit.

6. Tardará unos segundos, arrojará una clave y listo, la hoja está desprotegida, así de simple.

No conlleva riesgo ni para el archivo ni mucho menos para el equipo (no es un virus pues), se trata de una subrutina de programación en Visual Basic que se encarga de “obtener” una clave alternativa de desbloqueo, no es la original pero cumple el propósito de quitarle los candados de seguridad. Y en este screenshot se puede observar que claramente ya no aparece la tercer hoja.

No es la gran ciencia tampoco pero estoy seguro de que a alguien le puede ser de utilidad, y ¡benditas estupideces de Office!. La prueba de que es 100% editable:

Anuncios