Desproteger Hojas de Cálculo (Excel)

[Palawan]

Hola amigos, aqui traigo un Tip que de seguro ayudará a mas de uno. Cuando queremos trabajar una hoja de excel tiene macros muy buenos, funciones q nos ayudan, gráficas excelentes y lo descargamos, cerramos la web y no nos dimos cuenta de cual era la contraseña de la hoja de cálculos y queremos editarla pero no nos deja por que está protegida con contraseña y ahora??? Como era la web? Se nos borro el historial o no recordamos cual era... A eliminar el trabajo? Pffff donde estaba esa contraseña o cual es? Echarnos a buscar Esta en el inframundo de las 800.000 webs q vimos juazzz, hallamos la web pero no dice la contraseña Ploppp a llorar al rio xD
Aqui una solución muy sencilla. Solo tenemos q activar en el Excel, en la barra de herramientas la opción de Programador, como la activo?

1 abrir excel (obvio)
2.- Archivo
3.- opciones
4- personalizar cinta de cinta de opciones
5.- en el cuadro del lado derecho tenemos un listado solo hay que dar click en la opcion que dice programador.

Luego de eso en la zona de Programador, abrierta la hoja de cálculos añadimos un nuevo Macro... Como se come eso? Juazzz

En la sección de Programador damos a Ver Código... Nos saldra una ventana de códigos y añadimos el siguiente code:

Sub Descubrir_contraseña()Dim a As Integer, b As Integer, c As IntegerDim d As Integer, e As Integer, f As IntegerDim a1 As Integer, a2 As Integer, a3 As IntegerDim a4 As Integer, a5 As Integer, a6 As IntegerOn Error Resume NextFor a = 65 To 66: For b = 65 To 66: For c = 65 To 66For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126Contraseña = 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 ContraseñaIf ActiveSheet.ProtectContents = False ThenMsgBox "¡Te regalo la contra Sacar lengua!" & vbCr & "By W4rL0cK... La contraseña es:" & vbCr & ContraseñaExit SubEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextEnd Sub
Y ahora le damos en el botoncito Play... El verdecito... Y saldrá nuestra nueva contraseña.

Espero pueda ayudarles a varios.

Saludos. Hasta otra.

PS. Protemo editar el tema en imágenes, pq aquí me bloquea algunas webs y no puedo subirlas.

[r1v33]

Creia que hablabas de LA SECCIÓN de macros protegida....

[Howl]

Este es un buen metodo pero un poco confuso solo explicarlo en palabras, seria necesario unas cuantas imagen para que sean un poco mas facil de entender. espero la edicion :D