Ha muchos nos ha pasado que le colocamos protección a nuestra hoja de excel pero luego de un tiempo resulta que como no lo usamos más ya olvidamos que contraseña le colocamos.

Para estos casos tenemos una solución muy practica gracias a la pagina de Trucosaurio la cual es la siguiente:

- Abre tu hoja protegida

- Pulsa la tecla ALT+F8, tambien puedes ir al menu HERRAMIENTAS, seleccionar Macros y hacer click en la Opción Macros

- En la ventana de Macros ponle el nombre que quieras, y presiona el boton CREAR

- Ya en la ventana de Editor de Visual Basic, nos aparece el procedimiento vacio

- Lo siguiente sera Copiar y pegar el siguiente codigo alli justo donde aparece el cursor, entre SUB y END

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 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

- Una vez pegado el Código simplemente le damos a Ejecutar o Presionamos F5.

- Si todo ha salido bien nos Saldra la siguiente Ventana:

- Listo, ya estara tu hoja desprotegida, ten en cuenta que ese codigo cambia no tiene que ser el mismo que se muestra aqui. No te olvides de guardar tu hoja desprotegida. Sifunciona porque como siempre antes de subirlo ya lo probe.

* Cualquier duda no dudes en escribir tus comentarios

* Elvis Cortijo.