INFORMACIÓN

Código para quitar contraseña xls

Hay que crear una macro con el siguiente código:

Sub Descubrir_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 & "La contraseña es:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub




Como proteger hoja xls

Utilizando macros se puede proteger una hoja de un libro de Excel rápidamente, sin tener que definir opciones ni contraseñas. Al seleccionar la hoja esta se protege automáticamente.

Manual de Excel Avanzado

Esto lo hacemos mediante código pero no en el editor de Visual Basic como tal, sino en el código específico de cada hoja, de manera que la macro actuará únicamente en la hoja a la que se ha agregado.

Para ello damos clic con el botón derecho del mouse sobre la pestaña de la hoja que deseamos proteger,  y en el menú que se despliegue, dar clic en la opción “Ver código” como se muestra en la siguiente imagen:

En ese caso deseamos proteger la hoja 1 que hemos marcado con el color rojo.

Seguidamente se abre el editor de Visual Basic y copiamos el siguiente código:

Private Sub Worksheet_Activate()

ActiveSheet.Protect

End Sub

Es todo lo que tenemos que hacer.

Para desproteger la hoja, nuevamente damos clic con el botón derecho sobre la pestaña de la hoja y elegimos la opción desproteger hoja.

Cando se desprotege la hoja no es necesario protegerla nuevamente. Esta se protege cuando salimos de ella, de modo que al volverla a seleccionar la encontraremos protegida. Es decir que si salimos de la hoja 1 e ingresamos a la hoja 2, cuando regresemos a la hoja 1 estará protegida de nuevo.

Recordemos que este código protegerá únicamente la hoja 1. Si queremos proteger la hoja 2, debemos repetir el procedimiento. Es decir que este código se agrega a cada una de las hojas que se quieran proteger.