Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Quitar Protección Archivos Excel (Desbloquear - Desproteger) PDF

Descargar como pdf o txt
Descargar como pdf o txt
Está en la página 1de 3

Quitar proteccin archivos Excel (desbloquear/desproteger) : Civil Excel:Planillas Excel para Ingeniera Civil

El aviso que Excel nos da cuando tratamos de editar una hoja protegida es: La celda o el grfico que
intenta modificar estn protegidos y por tanto son de solo lecturaPara modificar una celda o grfico
protegidos, quite la proteccin usando el comando Desproteger hoja (ficha Revisar, grupo Cambios). Puede
que se pida una contrasea.

Cuando deseamos desproteger una planilla Excel de la cual no recordamos la contrasea, para
posteriormente editarla tenemos que seguir los siguientes pasos.
Primero: Abrimos la hoja Excel protegida, de la cual necesitamos quitar la proteccin.

Segundo: Presionamos al mismo tiempo las teclas Alt + F8, se abrir una ventana llamada Macro, en el
campo que indica Nombre de la macro: introducen el nombre que deseen, en este caso utilizamos el
nombre Desproteger y damos clic en el botn Crear, como indica la siguiente figura:

Tercero: Se abrir el programa Microsoft Visual Basic para Aplicaciones, dentro el programa encontraran
una ventana que tiene un ttulo del tipo ***.xls Mdulo 1 (Cdigo), que contiene dos lneas de cogido, la
lnea de inicio (nombre de la macro que pusimos) y la lnea final (End Sub) y copiamos el siguiente cdigo
completo, entre estas dos lneas:

http://www.civilexcel.com/2015/03/quitar-proteccion-archivos-excel.html[08/09/2015 08:55:43 a.m.]

Quitar proteccin archivos Excel (desbloquear/desproteger) : Civil Excel:Planillas Excel para Ingeniera Civil

Dim i As Integer, j As Integer, k As Integer


Dim l As Integer, m As Integer, n As Integer
On Error ResumeNext
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 "La contrasea 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

Quedando de la siguiente manera:

Next
Next
Next
Next
Next
Next
Next
Next
Next

Cuarto: Cerramos normalmente la ventana que contiene el cdigo que copiamos anteriormente y el
programa Microsoft Visual Basic para Aplicaciones, nuevamente presionamos al mismo tiempo las
teclas Alt + F8, se abre la ventana con nuestro Macro creado y hacemos lo seleccionamos y hacemos
clic en ejecutar.
Si todo el proceso que seguimos es correcto, nos sale un mensaje del tipo La contrasea es:
AAAAA, como indica la siguiente figura:

http://www.civilexcel.com/2015/03/quitar-proteccion-archivos-excel.html[08/09/2015 08:55:43 a.m.]

Quitar proteccin archivos Excel (desbloquear/desproteger) : Civil Excel:Planillas Excel para Ingeniera Civil

Notas:
- La contrasea mostrada en la imagen anterior no es la misma que la original pero funciona de todas
maneras.
- Al Ejecutar la macro, automticamente se quita la proteccin, no siendo necesario volver a introducir la
contrasea encontrada, esto funciona en la mayora de las versiones de Excel, en caso de no
desprotegerse el documento basta con introducir la contrasea encontrada en el comando Desproteger
hoja (ficha Revisar, grupo Cambios).
- La macro creada se puede ejecutar directamente desde la ventana del cdigo de Visual Basic.

http://www.civilexcel.com/2015/03/quitar-proteccion-archivos-excel.html[08/09/2015 08:55:43 a.m.]

También podría gustarte