Quitar contraseña a una hoja de Excel 2010

Buen dia, no te ha pasado que le pones una contraseña a tu hoja de Excel para que nadie toque nada de lo que has hecho, pero casualmente se te olvido a ti la dichosa contraseña pues aqui la solucion.


para quitar contraseña a una aoja de Excel 2010

Primero que todo ir a la hoja que esta protegida, luego precionar Alt-f8, en el nombre poner cualquiera que se te ocurra,
luego le dan crear,
luegon borren lo que les salga en la ventana y pegan esto:


Sub breakit()

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 "Un password valido 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

End Sub



despues le dan ejecutar la cual se encuentra en la barra de herramientas y
listo les va a dar una clave valida pero no importa ya que la hoja ya no tiene contraseña.

Espero les sirva

saludes,

Anuncios

57 comentarios - Quitar contraseña a una hoja de Excel 2010

@jsomiranda
FUNCIONA DE PELOS COLEGA, VAN MIS +10 PARA TI ME FUNCIONO OK, GRACIAS POR EL APORTE
@cabrecri
gracias, funciona barbaro
@motenao +1
no me funciona le doy en el boton desprotejer y me pide la contraseña la subrutina quepusiste me da de default AAAAAAAAA QUE SERIA LA CONTRASEÑA PERO AUN ASI NO PUEDO :s SUGERENCIAS
@R_ODIM
no funciona, podes explicar mejor?
@esteeve
no lo puedo desbloquear ! porque cuando lo abro me pide la contraseña y no puedo hacer alt +f8
me explicas mejor ..gracias
@Caliche10t
igual estoy yo.. tampoco me funcionan.. me pide contraseña de apertura..gracias.. por favor ayuda
@elcote25
funciona excelente!!!!! Felicitaciones!!!!
@raloxifeno
EXCELENTE, SI FUNCIONA , ERES PIKUDO. VAN MIS 10
@chaboncito001
Como se hace para DESPROTEGER??? Es decir, cuando abris un documento de excel ya te pide la contraseña para poder ver el contenido de ese archivo.
Despues esta la otra forma para "desproteger" el contenido del archivo, es decir hacer modificacion al mismo, ahi si utilizo la "macro" que estás publicando para poder modificar el contenido de ese archivo excel.
Lo que yo estoy necesitando es lo que te escribi en el primer párrafo, como DESPROTEGER UN ARCHIVO EXCEL, SI AL ABRIR EL ARCHIVO YA TE PIDE LA CONTRASEÑA ???
@el_triste77
funciono de maravilla amigo se te agradece
@TANO10
SORPRENDENTE, VAN 1O
@daniel_47
es el mejor post que he encontrado grasias
@thinerseo
muy bien funciona al 100% gracias por el aporte
@CR15T14N001
Luego de presionar f8 y darle crear me pide contraseña q hago ??? ayuda por favor
@delossantos35
Funciona perfecto!!! Van 10 puntos (bueno por lo pronto me permiten mandar 3 ) Saludos!
@constanzacavalli
funciona!!!!!!!!!!! Todos los puntos que puedo dar van!
@anderandrews
a mi no me funciono pero los felicito por hacer exelentes aportes como este..........
@acidjustice
increíble funciono, muchísimas gracias colega
@terkos
Gracias brother, la necesitaba de urgencia.... van los puntos que te pueda enviar...
@toca2028
un espectáculo... quede re bien con mi jefa.... mil gracias... te di todos los puntos que pude
@gatedyi
lo acabo de probar y me funciono al 100
@El_profemat
Te amo jejeje, nah mentira pero eres graaande pipe
@jocmaster
Mi pana se gano +10. Increible los bugs de office!!!
@jav1003
+10 excelente mil gracias
@vicpool
Excelente me funco gracias me salvaste 10 puntazos che
@Failx2
Sos mi idolo!!!
@chackers +1
Voy hacer la siguiente acotacion.... primero que nada esa desproteccion no es para office 2010 asi que partamos que es completamente erroneo el titulo. Otra cosa completamente distinta es abrir planillas de excel compiladas en office 2007 o 2003 en un office 2010 y hacer el procedimiento que se mencionó. Alli si funciona el desbloqueo de la plantilla de excel. Ahora... hay varios usuarios reclamando que les pide la contraseña, bueno amigos, esta no es precisamente la solucion a sus problemas porque no desbloquea la planilla si es que esta hecho en la version 2010 o superior!!!
@dragondraven
excelente aporte gracias funciono a la perfección saludos
@allensheshar
Muy bueno, solo le hice un ajuste para que recorra todas las hojas, y muestre un STATUS-BAR. Lo comparto.
Sub breakit()

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim MySheet As Worksheet
Dim encontrado As Boolean

On Error Resume Next
For Each MySheet In Application.ActiveWorkbook.Sheets
MySheet.Activate
encontrado = False
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
If encontrado = False Then
MySheet.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)
strCadena = Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Application.StatusBar = MySheet.Name & " -- .. Buscando clave! [" & strCadena & "]"
If ActiveSheet.ProtectContents = False Then
Debug.Print MySheet.Name & " - Su password valido 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)
encontrado = True
Exit For
End If
End If
Next
DoEvents
Next
DoEvents
Next
DoEvents
Next
DoEvents
Next
DoEvents
Next
DoEvents
Next
DoEvents
Next
DoEvents
Next
DoEvents
Next
DoEvents
Next
DoEvents
Next
Application.StatusBar = MySheet.Name & " -- .. Buscando clave!"
Next
MsgBox "Listo!"
End Sub
@tihany
Van mis 10 y a favoritos me funciono.
@GabrielRechy
TE DOY +10 PUNTOTES... ME SIRVIO SUPER... GRAX BRO...
@aruybal
Excelente, te doy 10 puntos. Gracias por el código, las horas de estudio y dedicación y por compartirlo. Hacés el mundo un poco mejor! un abrazo y mis respetos.
@eltroly
buea ayuda...gracias
@krlosaosorio
Hola, tengo el mismo problema que los de arriba, no es contraseña solo para una hoja sino todo el documento de excel, me pide contraseña pero con los datos que dan acá no me abre. Es 2010, gracias por si me pudes dar respuesta.
@p0r73
Excelente!!! mil gracias!