Cómo desproteger hojas de Microsoft Excel sin contraseña
Esta mañana, un colega vino con un archivo excel que no se podía editar, porque la hoja estaba protegida por su creador. Mi amigo pidió desproteger la hoja de Microsoft Excel, porque no conocía la contraseña. Al intentar editarla, aparece una advertencia como ésta.
 |
| " la celda o el gráfico que está intentando modificar está protegido y, por tanto, es de sólo lectura. Para modificar una celda o un gráfico protegidos, elimine primero la protección mediante el comando Desproteger hoja (pestaña Revisar, grupo Cambiar). Es posible que se le solicite una contraseña"" |
u otra característica de una hoja protegida es si nos fijamos en la revise habrá un icono desproteger Hoja
 |
| Icono Desproteger hoja |
El archivo sólo se puede editar si conocemos la contraseña de la carpeta Desproteger Hoja. Acabo de darme cuenta de que hace años que no juego con hojas de Excel protegidas :D. Antes solía usar Open Office para editar archivos protegidos, pero por mis experimentos, resulta que la protección de Excel no se aplica en otros programas como Open Office, Libre Office, etc.
Por cierto, el ordenador que utilizo no tiene instalado Open Office/Libre Office, parece que tardo mucho en descargar e instalar el programa. Así que con la ayuda de Google, finalmente encontré una manera de desproteger la hoja de Excel utilizando Script VB (Visual Basic).
El siguiente es un paso a paso Desproteger hoja de Microsoft Excel utilizando VB Script:
- Abrir el fichero Excel protegido
- Pulse la combinación de teclas "ALT+F11″.
- Haga clic en Insertar > módulo
- copia y pega el siguiente código:
Sub ContraseñasInternas()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
En caso de error Reanudar siguiente
Para i = 65 a 66: Para j = 65 a 66: Para k = 65 a 66
Para l = 65 a 66: Para m = 65 a 66: Para i1 = 65 a 66
Para i2 = 65 a 66: Para i3 = 65 a 66: Para i4 = 65 a 66
Para i5 = 65 a 66: Para i6 = 65 a 66: Para n = 32 a 126
ActiveWorkbook.Desproteger Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveSheet.Desproteger Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Si ActiveWorkbook.ProtectStructure = False Entonces
Si ActiveWorkbook.ProtectWindows = False Entonces
Si ActiveSheet.ProtectContents = False Entonces
Salida Sub
Fin If
Fin If
Fin If
Siguiente: Siguiente: Siguiente: Siguiente: Siguiente: Siguiente
Siguiente: Siguiente: Siguiente: Siguiente: Siguiente: Siguiente
Fin Sub
5. Haga clic en la hoja o libro de trabajo para el que queremos abrir la contraseña
6. Haga clic en Macro > Mostrar macro > Contraseña interna > Ejecutar
7. Espere un poco (dependiendo del tamaño del Archivo)
8. Si el proceso se ha completado, entonces puede editar el archivo libremente. Para comprobar si el archivo sigue protegido, también puede verlo en la pestaña Revisar y, a continuación, en el icono Desproteger la hoja ha cambiado a Hoja de protección.
Esperamos que esto te sea útil si alguna vez olvidas la contraseña de protección de tu hoja o necesitas editar un archivo que está protegido.
->
Spanish 
Indonesian 
English 
German 
French 
Chinese 
Portuguese 
Japanese 
Turkish 
Arabic 
Italian 
Korean
gracias gan muy útil 🙂 .
muchas gracias ... trabajo gan
de nada..gracias por visitarme 🙂 .
de nada..gracias por visitarme 🙂 .
gran éxito.....
Sólo compartir, la forma en que lo hago es sólo 3 pasos, consulte aquí, http://binderone.blogspot.com/2015/02/3-step-open-sheet-cell-protection.html o youtube https://www.youtube.com/watch?v=gpQjmdTLoI0
Gracias, ....
Trimks es muy útil
mis otros escritos están en http://www.comparazi.com
manztabb
Muchas gracias gan...ayuda a nuestro trabajo
Gracias....simple y eficaz
¿Y si VB también está en la contraseña?
gan mine can't insert module cz in VB it still has password kira" gmana how?
Esto es para quitar la protección directamente, ¿y si quiero saber la contraseña... puedo usar el método anterior?
por favor, gracias su artículo es muy útil para mi trabajo. éxito continuado
Este comentario ha sido eliminado por el administrador del blog.
Este comentario ha sido eliminado por el administrador del blog.
¿Por qué después de hacer clic en insertar, el módulo no está activo?
Este comentario ha sido eliminado por el autor.
buen tutorial. gracias
Si lo que está protegido es el proyecto vb, ¿hay alguna manera gan?
Eso es porque el vbProject también está protegido.
gracias gan(y) 🙂
matur nuwun kang....helped by the knowledge that you share....salut n success bwt akang ...
¿Cómo es que el mío está dando vueltas?
He probado el mismo método pero el contenido es diferente y sigue funcionando...
(cargo 2016)
muchas gracias.... mi archivo se puede editar sin pedir ser reenviado por el proveedor que es tacaño en dar los datos, utilizando toda la protección....heheeee
Gracias...
Muchas gracias jazakalloh khairan katsiraa..... tan útil. ikah muh bjr
Sub RompeContraseñas()
'Rompe la protección de contraseña de la hoja de trabajo.
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
En caso de error Reanudar siguiente
Para i = 65 a 66: Para j = 65 a 66: Para k = 65 a 66
Para l = 65 a 66: Para m = 65 a 66: Para i1 = 65 a 66
Para i2 = 65 a 66: Para i3 = 65 a 66: Para i4 = 65 a 66
Para i5 = 65 a 66: Para i6 = 65 a 66: Para n = 32 a 126
ActiveSheet.Desproteger Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Si ActiveSheet.ProtectContents = False Entonces
MsgBox "Una contraseña utilizable 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)
Salida Sub
Fin If
Siguiente: Siguiente: Siguiente: Siguiente: Siguiente: Siguiente
Siguiente: Siguiente: Siguiente: Siguiente: Siguiente: Siguiente
Fin Sub
Si el mudulnya no puede hacerlo hermano
Genial, muy útil
funciona.
Gracias, señor.
muy útil
Conocimientos muy útiles, gracias gun lo he probado muy útil.
Gracias Gan. Muy útil
Gran gan...lo he probado y ha funcionado. gracias.
o sí, pásate por mi blog de vez en cuando...
http://topafiliasiindonesia.blogspot.co.id/
muchas gracias mas muy útil 🙂 .
ok gan...trabajo constante...muchas gracias
muchas gracias mas....éxito siempre
gan, pregunte ya, si el módulo de inserción no se puede abrir gmn gan?
@Akhy Abdoen Jamiel: ¿Contraseña? Prueba a abrirlo con libre office si lo tienes
Cada vez que corro .. no responde sigue gan .. ¿cuál es la solución?
SAYAMAH G BISA2 EUY
ES MUY DIFÍCIL O EL ARCHIVO ES DEMASIADO GRANDE
lo siento gan no puede trabajar en mi ordenador. ¿cuál es la solución?
lo siento gan no puede trabajar en mi ordenador. ¿cuál es la solución?
genial...tq
muchas gracias amigo
muy útil
No puedo modular, tampoco puedo hacer clic... ¿qué pasa?
porque el VBA sigue protegido, por lo que el módulo no se puede utilizar.