COMO QUITARLE LA PROTECCIÓN A UN ARCHIVO DE EXCEL QUE NO SE DEJA EDITAR.

Iré al grano, lo único que tienes que hacer para quitarle la protección a un archivo de Excel es tener el documento abierto y oprimir las teclas Alt + F8 para que te aparezca esta ventana.

Una vez te salga la ventana escribe trucodigital y luego dale clic al botón crear para que te salga esta otra ventana.

Estando aquí vas escribir el siguiente código: 

Sub trucodigital() 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 "¡Listo, archivo desbloqueado. Truco digital, suscribete!" & vbCr & "Se ha removido la contraseña:" & vbCr & Contraseña Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub

jhjgfhgf

Te debe de quedar tal cual esta en esta imagen,

Y luego das un clic en el boton de play verde encerrado en rojo como esta en el ejemplo para desbloquearlo. Cuando lo hagas te saldrá la siguiente ventana.

Listo, este aviso te notifica que el archivo esta desbloqueado. Ya puedes editarlo y guardarlo con un nombre diferente.

Harley Vidal