Quitar Protección a Hojas de Excel

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

52 pensamientos en “Quitar Protección a Hojas de Excel

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *

Puedes usar las siguientes etiquetas y atributos HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>