Obtener clave de proteción de hoja en Excel


La protección de una hoja de excel previene que alguien realice algún cambio en las fórmulas de las celdas. Pero este método no es infalible, y aquí te muestro como obtener la clave para poder destroteger el libro, usando algo de programación usando las tan útiles macros.

Primeramente acceder al asistente de creación de macros, presionando ALT + F8

 

Le asignamos un nombre y a continuación presionamos el botón Crear.

Se mostrará el editor de código de VBA, con un método creado, con el nombre puesto a nuestra macro:

Dentro de este, copiaremos el siguente código:

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 "La contraseña para desbloquear 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

Para ejecutar bastará con presionar el botón Ejecutar, el cual ejecutará la macro y nos motrará mediante un mensaja una clave con la cual podremos desproteger completamente nuestro libro, la cual podremos utilizar en Opciones / Información.

Deja una respuesta

Tu dirección de correo electrónico no será publicada.