Desbloquear hoja de Excel

 

1. 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 con el Atajo de Teclado: ALT + F11
2. En la nueva ventana que se abrió, puedes hacer un doble clic sobre el nombre de la hoja que quieres desbloquear.
3. 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.
4. Cierra la ventana, pues hemos terminado con esta parte y ya puedes volver a tu hoja de Excel.
5. En la cinta, selecciona la opción View (Ver)
6. Dirígete a la opción de Macros y selecciona View Macros (Ver Macros)
7. 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)
8. 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.

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.

El código

A continuación te dejo el código que debes pegar en la ventana del editor de Visual Basic. Cópialo tal cual lo tienes dentro del siguiente recuadro y pégalo donde corresponde, siguiendo las instrucciones.

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