Mantenimiento Informático

Quitar Protección a Hojas de Excel

Cesar Pastor octubre 15th, 2009 En categoría Office | 24 Comentarios »

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

  1. 24 Respuestas para “Quitar Protección a Hojas de Excel”

  2. Por Edgarel nov 10, 2009

    Excelente, funciona al 100. Gracias

  3. Por Césa Pastorel nov 10, 2009

    Me alegro que te haya sido de ayuda

  4. Por Francisco Castroel dic 4, 2009

    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?

  5. Por Luisel dic 4, 2009

    Exelente
    me saco de un gran apuro y en 1 minuto estaba listo gracias

  6. Por Robertoel jun 1, 2010

    Esta de peluche, solo que el cuadro de mensaje no me sirvio, solo lo borre y ya.

  7. Por Lechonael jul 9, 2010

    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

  8. Por Natyel nov 22, 2010

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

  9. Por Carlos Fiallosel feb 5, 2011

    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

  10. Por Alijorel feb 17, 2011

    Eres maestro men, mil gracias, de igual forma solo borre el cuadro de dialogo

  11. Por iopel abr 11, 2011

    grax,, pero me sale error de sintax justo en la primera linea,,

  12. Por Kozooel may 9, 2011

    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

  13. Por Kozooel may 9, 2011

    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

  14. Por César Pastorel may 9, 2011

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

  15. Por marisol loboel jun 2, 2011

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

  16. Por SALVADORel jun 27, 2011

    Muchas gracias, de verdad que es de gran ayuda tu aportacion.

  17. Por SALVADORel jun 27, 2011

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

  18. Por Alejandroel jul 3, 2011

    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

  19. Por MARLIONel jul 19, 2011

    se puede certificar 100% eficaz lo recomiendo full

  20. Por Garyel ago 29, 2011

    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

  21. Por Javierel nov 20, 2011

    Funciona 100% eres un pro. sin programas ni hack ni nada

  22. Por hector perezel nov 30, 2011

    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.

  23. Por pablitoel ene 12, 2012

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

  24. Por pablitoel ene 12, 2012

    alguien me ayuda por favor

  25. Por sebael ene 17, 2012

    de pelos man! excelente aporte!!!!!
    Grax

Envia un comentario