Excel Desbloquear la hoja

Desbloquear la hoja de Excel

Pincha con el botón derecho del mouse sobre el nombre de la hoja que pretendes desbloquear y selecciona la opción “Ver Código” o accede directamente al editor de VBA, como te mostré antes.                                    

Atajo de Teclado: ALT + F11   

   

En la nueva ventana que se abrió, puedes hacer un doble clic sobre el nombre de la hoja que quieres desbloquear.

Una vez hecho esto, en la parte derecha, en la zona blanca, pega el código que te proporciono al final de la presente entrada.

Cierra la ventana, pues hemos terminado con esta parte y ya puedes volver a tu hoja de Excel.

En la cinta, selecciona la opción View (Ver)

Dirígete a la opción de Macros y selecciona View Macros (Ver Macros)

La macro ‘DesbloquearHoja’ debe aparecer listada en el cuadro de diálogo que se muestra. Lo que vas a hacer será seleccionarla y pinchar en el botón Run (Ejecutar)

Dentro de unos instantes (generalmente demora muy poco) te aparecerá un mensaje como el de la siguiente imagen. No te preocupes por la contraseña que muestra, lo importante es que ha conseguido desbloquear tu hoja y está lista para que la guardes en un lugar seguro.¡Listo! Esa hoja que tenías guardada por ahí durante tanto tiempo ahora está operativa nuevamente. ¿No te esperabas que fuera tan sencillo, verdad?

                                           

Nota Importante:

                       

Lo que te explico en esta entrada solo te sirve para desbloquear HOJAS que están protegidas con contraseña. Para desbloquear LIBROS o ARCHIVOS que están bloqueados, deberás usar otra solución.                        

              

CODIGO

------------------------------------------------------------------------------------------------------------------------

Option Explicit

Sub DesbloquearHoja()

Dim Contrasenia As String
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

Contrasenia = 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 Contrasenia
If ActiveSheet.ProtectContents = False Then
MsgBox "¡Lo he logrado!" & vbCr & _
"La Contraseña es:" & vbCr & Contrasenia
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

------------------------------------------------------------------------------------------------------------------------

FUENTE

http://raymundoycaza.com/al-fin-puedes-desbloquear/