Quitar contraseña a una hoja de Excel 2010

Anuncios

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

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