viernes, 31 de agosto de 2012

Claves archivos de Excel

Los archivos de Excel tienen dos tipos de claves:

1. Clave en el ambiente de Excel
2. Clave en el ambiente VBA

NOTA: La explicación de como quitar las claves, es con el fin de alertar a quienes usan estas claves pensando que nadie va a poder quitarlas, tengan cuidado, existen opciones para quitarlas.

Para quitar la primera clave, existe una macro muy conocida en internet. 


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

La forma de quitar la clave en el ambiente de Excel es la siguientes:

1. Abren el archivo que tiene la clave
2. Digitar Alt + F11 (al tiempo)
3. Se habre el editor de VBA. Allí dan en Insertar - Modulo 
4. En la hoja en blanco que aparece copian el codigo que esta arriba (desde  Sub Quitar_contraseña()  hasta  End Sub)
5. Dar Archivo-Guardar, y cierran el editor VBA
6. Digitanr Alt + F8 (al tiempo), y les aparece una macro llamada "Quitar_contraseña".
7. Ejecutan la macro y esperan a que se desbloque el archivo.

Para quitar la clave en el ambiente VBA, deben seguir el siguiente procedimiento

1. Descargan un editor hexadecimal (yo uso Hex Editor XVI32)
2. Habren el archivo de Excel con el editor hexagecimal. El archivo debe estar en Excel 97-2003 (formato xls).
3. Buscan “44 50 42″ (sin comillas). Utilizando el Hex Editor XVI31, van a Search-Count y buscan.



4. Donde dice DPB, cambian la "B" por "x" y guardan el archivo.




5. Abrir el archivo con Excel y darle en "si" a los errores que aparezcan.
6. Digitar Alt + F11 (al tiempo) y se habre el editor de VBA.
7. Va a las propiedades de la hoja (ir a Herramientas-Propiedades de VBAProject) :



8. Y en protección ponen una clave (por ejemplo 12345)


9. Dar Archivo-Guardar, y cierran el editor VBA, y cierran guardan el archivo de Excel.
10. Abren el archivo de Excel y dan clic en desproteger el archivo, y cuando les pida clave, digitan la clave que ingresaron (para el ejemplo 12345).

Related Posts Plugin for WordPress, Blogger...