Quitar Protección a Hojas de Excel

En ocasiones nos encontramos con hojas de excel que están protegidas por contraseña contra escritura, borrado, etc. En estos casos la solución más rápida suele ser seleccionar las celdas en cuestión, copiar y pegar en una hoja nueva. Pero a menudo no sirve, ya que también están protegidas sin poder si quiera seleccionar las celdas.

Para quitar el bloqueo haremos lo siguiente:

Abrimos la hoja en cuestión, presionamos la combinación de teclas “Alt + F8″ para abrir el editor de Visual Basic y escribimos el siguiente código:

Sub Quitar_contraseña()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, f As Integer
Dim a1 As Integer, a2 As Integer, a3 As Integer
Dim a4 As Integer, a5 As Integer, a6 As Integer
On Error Resume Next
For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
Contraseñ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ña
If ActiveSheet.ProtectContents = False Then
MsgBox “¡Enorabuena!” & vbCr & “Se ha quitado la contraseña:” & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

 

vba

Cerramos el editor y, ya en nuestra hoja de excel en cuestión, vamos al menú “Herramientas” > “Macros” > “Macros” y ejecutamos nuestra nueva macro.

macro

 

 

 

 

 

 

 

 

 

 

En un tiempo verás la siguiente pantalla y ya tienes la contraseña cambiada. Ahora ya puedes o quitarla o poner la que quieras.

aaaaa1

50 pensamientos en “Quitar Protección a Hojas de Excel

  1. Francisco Castro

    Tengo un libro en excel muy viejito y sobre el cuál quiero trabajar, pero tiene protección del libro, lo cual me impide mostrar hojas ocultas. ¿Cómo le puedo quitar esta protección?

  2. Lechona

    men muchas gracias me sirvio pero el problemita es que tienes que actualizarlo para el 2007 ya que tu metodo es de 2003 pero sigue igual de efectivo solo cambia los lugar a donde ir gracias

  3. Naty

    INCREIBLE!!! GRACIAS A DIOS EXISTES!!! no sabes la cantidad de trabajo que me acabas de ahorrar

  4. Carlos Fiallos

    Muchas gracias por tu aporte, solo le agrego que a partir del ms office la combinacion alt + f8 la remplazen por all + f11 pero fuciniona belleza

  5. Kozoo

    iopel… no es error en la primera liena, aparece error de sintaxis en en la linea del mensaje por la comillas, te cipio el codigo como me funciono a mi.
    Sub Quitar_contraseña()
    Dim a As Integer, b As Integer, c As Integer
    Dim d As Integer, e As Integer, f As Integer
    Dim a1 As Integer, a2 As Integer, a3 As Integer
    Dim a4 As Integer, a5 As Integer, a6 As Integer
    On Error Resume Next
    For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
    For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
    For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
    For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
    Contraseñ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ña
    If ActiveSheet.ProtectContents = False Then
    MsgBox “¡Enorabuena!” & vbCr & “Se ha quitado la contraseña:” & vbCr & Contraseña
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    End Sub

  6. Kozoo

    perdon, al parecer al subir el codigo se cambian las comillas, prueba mejor con este, la diferencia es que comento la linea de mensaje.

    Sub Quitar_contraseña()
    Dim a As Integer, b As Integer, c As Integer
    Dim d As Integer, e As Integer, f As Integer
    Dim a1 As Integer, a2 As Integer, a3 As Integer
    Dim a4 As Integer, a5 As Integer, a6 As Integer
    On Error Resume Next
    For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
    For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
    For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
    For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
    Contraseñ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ña
    If ActiveSheet.ProtectContents = False Then
    ‘MsgBox “¡Enorabuena!” & vbCr & “Se ha quitado la contraseña:” & vbCr & Contraseña
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    End Sub

  7. César Pastor

    Creo que para Excel 2k7 es suficiente con borrar la primera linea del código

  8. marisol lobo

    gracias por ayudarnos a solucionar el problema que tenia fue de vital importancia eres nuestro Angel

  9. SALVADOR

    Gracias Kozooel tambien sinn tu ayuda nada mas no hubiese podido ejecutar el programa.

  10. Alejandro

    Me marca un error de compilación y de sintaxis, y no quita la contraseña, estoy usando excel 2007. Muchas gracias por su ayuda

  11. Gary

    Muchas Gracias, arreglando lo del mensaje funciona 100%

    Aprovechando el panico, alguien sabe como obtener o quitar la contraseña para poder editar el codigo VBA de un archivo excel protegido con contraseña

  12. hector perez

    Gracias, me sirvió el aporte… Me falta poder quitarle un logo o emblema que trae el documento. Me gustaría saber como quitarlo, ya que busque como hacerlo pero no pude.

  13. pablito

    tengo un archivo me pide contraseña para abrirlo no me acuerdo alguien me ayuda para poder abrirlo se los envio alguien me ayuda

  14. nelly

    holaa.. yo no puedo copiar todo ese código, solo aparece la ventana donde dice nombre de la macro y escribo Quitar_contraseña pero no puedo cambiar… como lo hago? porfavor ayudame q lo necesito para presentar unos balances de la U porfavoor!

  15. Aitor

    Solo decirte… q GRACIAS!!, no te imaginas lo que me ayudaste!!!
    Nuevamente gracias!!

  16. nelly

    holaa.. yo no puedo copiar todo ese código, solo aparece la ventana donde dice nombre de la macro y escribo Quitar_contraseña pero no puedo cambiar… como lo hago? porfavor ayudame q lo necesito para presentar unos balances de la U porfavoor!

  17. William

    haa y quita la parte de la contraseña… que aprece en rojo creo k hay un error ahi…quitale eso y normal funciona…

  18. BOB

    EXCELENTE AMIGO. como puedo desbloquear todo el documento para poder agregar sheets

  19. Wally

    si en caso no compila en office 2007 o 2010 , utilicen el ubicar ‘MsgBox “¡Enorabuena!” & vbCr & “Se ha quitado la contraseña:” & vbCr & Contraseña’ , tengan en cuenta la comilla (‘) , a mi me compilo, espero les ayude :)

  20. Mauricio

    gracias, me ayudo mucho al principio no me compilaba pero al quitarle el mensaje funciono sin ningún problema en excel 2010

  21. SILVIA

    me piden esto:
    Excepto las celdas en las cuales el usuario deberá ingresar datos: C3, A9:A18, D9:D18 y H9:H18, el resto de las celdas de la planilla deberán estar protegidas contra escritura al concluir la planilla.
    no se como hacerlo, con que herraminta
    spero sus respuestas gracias

  22. Jhoser

    Buenas tardes,

    Para el caso de silvia se puede hacer por revisar, proteger, permitir que los usuarios modifiquen rangos, le das en Nuevo, te apàrece una ventana, si quieres no le pongas titulo, en el campo correspondiente a las celdas: les da click y empìezas a seleccionar la celdas y los rangos de celdas que quieres que la persona modifique (mientras haces la seleccion ten oprimido la tecla ctrl para que puedas seleccionar varios), despues le das click en el mismo campo del cuadro y le das aceptar, vuelte y te aparece la ventana de permitir que los usuarios….. y le das click proteger hoja… y ahi das los permisos que quiere que tengan (en mi caso dejo chuliados seleccionar celdas desbloqueadas, usar autofiltro y usar tabla dinamica) y por ultimo le das la contraseña y te pide que la repitas y ya.

  23. Juan Miguel

    Intento quitar una contraseña a un excell pero me da el error de compilación antes descrito (Se ha detectado un nombre ambiguo: breakit). ¿Podeis ayudarme?

  24. Elmer Monzon

    Las personas que utilizan office 2007 este es el formato del mensanje y quitan el que tiene por defecto
    MsgBox (“Enhorabuena” & vbCr & “Se ha quitado la contraseña:” & vbCr & Contraseña)

  25. FRANCISCO

    Maestro!!! mil gracias por tu aporte al igual que todos mis antecesores me has salvado casi casi la vida “man”!!!!

  26. Andres

    trate de hacer el ejeccicio, pero en el momento de tratar de adicionar una macro para ejecutarla, tambien me pide contraseña, que debo hacer. gracias

  27. Lobo

    Sucede que al entrar a visual también ahí tiene contraseña y no me deja modificar el código.. que hacer en ese caso

  28. no_1

    En Office 2013 funciona cambiando la linea del mensaje tal como lo indica elmer monzonel:

    MsgBox (“Enhorabuena” & vbCr & “Se ha quitado la contraseña:” & vbCr & Contraseña)

  29. Santi

    A mi me sigue saliendo mensaje de error de compilación en microsoft office 2013, alguien puede copiar todo el codigo por favor

  30. Santi

    Sub Quitar_contraseña()
    Dim a As Integer, b As Integer, c As Integer
    Dim d As Integer, e As Integer, f As Integer
    Dim a1 As Integer, a2 As Integer, a3 As Integer
    Dim a4 As Integer, a5 As Integer, a6 As Integer
    On Error Resume Next
    For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
    For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
    For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
    For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
    Contraseñ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ña
    If ActiveSheet.ProtectContents = False Then
    MsgBox “¡Enorabuena!”
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    End Sub

    Yo mismo lo solucioné copienlo tal cual en excel …. aprieten Alt + F11 y luego se vand donded estan los nombres de las hojas y ponen nuevo y agregan un módulo y lo copian ahí… probablemente les pedira que reinicien y despues de eso ponen habilitar macros ;)

  31. jesus

    amigo ami no me sale podria enviarte el archivo y me lo podrias desbloquear ya que no pude de todas las formas posibles :S

  32. Santiel

    se me olvidaba… debes cambiar el archivo de office 2013 a office 2010 y lueho aplicarle el cambio …

  33. EL KIU

    Una palabra solo… CHAPEAU!!!!!!!
    Como to el mundo sabe es francés y quiere decir que hay que quitarse el sombrero ante ti….

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *

Puedes usar las siguientes etiquetas y atributos HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>