Código de VBA para desbloquear una hoja de Excel bloqueada

Si alguna vez ha olvidado una contraseña para una de sus hojas de cálculo de Excel, sabe lo frustrante que puede ser.

El código utilizado en esta instrucción es uno de los más simples que he encontrado. Generará un código utilizable que desbloqueará su hoja protegida.

No puedo tomar el crédito por el código ya que simplemente lo encontré en un momento de necesidad (y ya no puedo encontrar dónde está el sitio) ... así que no voy a ser de mucha ayuda si no funciona para usted, pero yo He tenido éxito con eso y pensé en compartirlo.

Paso 1: abrir VBA

Abra la hoja de trabajo para la que olvida su contraseña.

Use Alt + F11 para ingresar al editor de macros.
Una vez en VBA, haga doble clic en la hoja que necesita desbloquear desde la lista del menú a la izquierda.
Esto abrirá la página de declaraciones generales para la hoja.

Paso 2: cortar y pegar el interruptor de código


Inserte el código a continuación en la página de declaraciones generales que ha abierto.

No debería tener que cambiar nada, nombre de la hoja, etc. Simplemente corte y pegue.
_______________________

Sub PasswordBreaker ()

'Rompe la protección de contraseña de la hoja de trabajo.

Dim i como entero, j como entero, k como entero
Dim l como entero, m como entero, n como entero
Dim i1 como entero, i2 como entero, i3 como entero
Dim i4 como entero, i5 como entero, i6 como entero
En Error Reanudar Siguiente
Para i = 65 a 66: para j = 65 a 66: para k = 65 a 66
Para l = 65 a 66: para m = 65 a 66: para i1 = 65 a 66
Para i2 = 65 a 66: para i3 = 65 a 66: para i4 = 65 a 66
Para i5 = 65 a 66: para i6 = 65 a 66: para n = 32 a 126
ActiveSheet.Unprotect Chr (i) & Chr (j) & Chr (k) & _
Chr (l) y Chr (m) y Chr (i1) y Chr (i2) y Chr (i3) y _
Chr (i4) y Chr (i5) y Chr (i6) y Chr (n)
Si ActiveSheet.ProtectContents = False entonces
MsgBox "Una contraseña utilizable es" & Chr (i) & Chr (j) & _
Chr (k) y Chr (l) y Chr (m) y Chr (i1) y Chr (i2) y _
Chr (i3) y Chr (i4) y Chr (i5) y Chr (i6) y Chr (n)
Salir Sub
Terminara si
Siguiente: Siguiente: Siguiente: Siguiente: Siguiente: Siguiente
Siguiente: Siguiente: Siguiente: Siguiente: Siguiente: Siguiente
End Sub
________________________

Paso 3: ejecuta la macro

Una vez que se agrega el código, ejecute la Macro seleccionando Ejecutar en la barra de pestañas del menú en la parte superior de la pantalla del editor de VBA o simplemente presione F5

Paso 4: usa el código generado

La macro lo regresará a la hoja de trabajo que desea desproteger. Aparecerá un cuadro de estilo de alerta con un código utilizable.

En la pestaña del menú Revisar, haga clic en Desproteger hoja.
Ingrese el código generado como contraseña y listo. ¡Tu hoja debe estar desbloqueada!

Debe usar este poder sabia y responsablemente solo para desbloquear sus propias hojas de trabajo.

Artículos Relacionados