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

Popular

Cantidad máxima de Cables UTP en tuberías Conduit

Imagen
  Calcular la cantidad de cables que puede llevar un ducto en base al diámetro de cable aplicando las mejores prácticas y la norma TIA-569B. Existen tablas predefinidas en base a experiencias previas para calcular la cantidad de cables en una tubería conduit teniendo el cuenta el diámetro del cable. Cable categoria 5e / Calibre 24 awg / 5 mm Cable categoría 6 / Calibre 23 awg / 6 mm Cable categoría 6a / Calibre 23 awg / 7.62 mm Diámetro tubería 5.6 mm 6.1 mm 7.4 mm 1/2″ 0 0 0 3/4″ 4 3 2 1″ 7 6 3 1 1/4″ 12 10 6 1 1/2″ 16 15 7 2″ 22 20 14 2 1/2″ 36 30 17 Pero lo ideal es sacar nuestros propios cálculos aplicando las siguientes formulas y se puede aplicar para diversos tipos de cables UTP. FTP, STP, , Fibra Óptica) y el valor obtenido sería el promedio de cantidad a usar en tuberías conduit tomando como  referencia a un 40%  del área. Tener presente que cada 30 metros se debe instalar una caja de registro. Ejemplo  Tenemos que unos 90 mts de tubería EMT de 2” en línea recta con cajas de r
Leer más

Activación Office 2021

Activación CMD (KMS) Sigue estos pasos para  activar Office 2021 mediante CMD  utilizando las licencias por volumen KMS: Ejecuta el símbolo del sistema (CMD) como administrador. Para ello, presiona la tecla Windows, escribe CMD, clic derecho sobre la aplicación Símbolo del sistema y haz clic en “Ejecutar como administrador”. Copia y pega el siguiente comando en la consola. Recuerda presionar Enter para ejecutar el comando. cd /d %ProgramFiles(x86)%\Microsoft Office\Office16 cd /d %ProgramFiles%\Microsoft Office\Office16 Este comando ingresa al directorio de Office en CMD, que dependerá de la arquitectura de tu sistema operativo (32 o 64 bits). Para evitar complicaciones, ejecuta ambos comandos. Uno mostrará error, pero el otro se ejecutará correctamente. 3. Ahora ejecuta este otro comando para instalar la licencia por volumen de Office 2021. for /f %x in ('dir /b ..\root\Licenses16\ProPlus2021VL_KMS*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%x" 4. Fina
Leer más

Windows Server - Cambiar versión de Evaluación a Standard

Imagen
  En este artículo vamos a explicar como podemos pasar de una versión de Evaluación a una versión Standard de Windows Server. Es muy habitual el tener que hacer esta operación. Puede ser que hayamos comprado una licencia "física" de nuestro Windows Server favorito y que queramos ir adelantando trabajo haciendo la instalación (y actualizaciones, no nos olvidemos) o bien que directamente tengamos la licencia, pero nos haya venido sin medios, es decir, sin el DVD de instalación. En cualquier caso, no son pocas las veces de las que no disponemos de nuestro DVD físico para hacer la instalación de Windows Server y recurrimos a descargarnos la ISO de la versión de evaluación para poder hacer dicha instalación. El problema viene cuando queremos activar esa licencia, porque no es una licencia de producción y nuestra clave no vale para activarla. En este caso, lo que haremos primeramente será cambiar la versión y posteriormente activarla. Así que manos a la obra. Cuando tenemos un Wind
Leer más