Codigo visual basic
Descargar como DOCX, PDF1 recomendación298 vistas
Este documento proporciona un código de programación en Visual Basic que permite desbloquear hojas de Excel protegidas con contraseña. Explica 9 pasos para insertar el código en Visual Basic y ejecutarlo para quitar la contraseña de una hoja de Excel protegida de manera automática.
Codigo visual basic
- 1. Saludos... En esta oportunidad quiero compartir contigo un código de programación en Visual Basic, que nos permitirá desbloquear o quitar contraseñas de una hoja de Excel. Si alguna vez se nos presento este problema el cual no nos permitía realizar modificaciones a alguna hoja de Excel, pues ahora aprenderás de manera rápida y sencilla la forma de desbloquear hojas de Excel. Te explicare paso a paso, con imágenes para que aprendas rápido... Paso 1 Como primer paso activaremos la pestaña Programador para ello debemos hacer lo siguiente, ir al Botón de Office/Opciones de Excel Paso 2 Aparecerá un menú como el que se muestra, en la parte superior del cuadro activamos la opción Mostrar Ficha de Programador en la Cinta de Opciones y finalizaremos con Aceptar Paso 3 Como se muestra en la imagen al activar la opción anterior nos aparecerá la pestaña Programador, al aparecer la pestaña nos indica que estamos haciendo correctamente los pasos. xD! Paso 4 Seleccionamos la pestaña Programador, nos ubicamos en el Icono Visual Basic tal como se muestra en la imagen Paso 5 Al hacer clic aparecerá una nueva ventana de Programación, en esta ventana hacemos lo siguiente, ir al insertar/Modulo Paso 6 En la ventana que nos aparece vamos pegar el siguiente código de programación en Visual Basic 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
- 2. 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 "<JoGaxD>" & 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 Despues de copiar y pegar el código cerraremos la ventana de Programación. Paso 7 Luego vamos a la pestaña Vista que se encuentra en la cinta de opciones, ahora ubicamos la ocian Macros/Ver macros como se muestra en la imagen Paso 8 Entonces parecerá un cuadro como el que se muestra en la imagen, en el seleccionamos la opción, Quitar Contraseña y finalmente le damos Ejecutar Paso 9 Esperaremos un momento en el peor de los casos 1 min, después de ello si hicimos todos los pasos correctamente aparecerá una ventanita o un mensaje diciendo que la contraseña ha sido desbloquead, como se muestra en la imagen. ESPERO TE SIRVA ES FACIL Y SENCILLO... PUEDES DEJAR PUNTOS O COMENTARIOS.