Jump to content

Archived

This topic is now archived and is closed to further replies.

Brian Velez

Desbloqueo Excel y se Daña

Recommended Posts

Prueba este código!!! En VBA

Claro que si esta protegido en VBA habra inconveniente

Saludos!! Brian y @Gerson Pineda Siempre es Gustazo Saludarte!!!

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

 

Share this post


Link to post
Share on other sites

Bien, Brian tal como lo conversamos, este foro no se presta para hacer este tipo de ayuda o colaboración

Por favor a todos, NO solicitar este tipo de ayuda en ninguna parte del foro

Tema Cerrado

 

Saludos 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Efectivamente, eso es lo que hago. Muchas gracias, simplemente quería saber si es posible realizar esta acción.   Saludos.
    • A ver si es lo que buscas: Dim Resp As Byte Resp = MsgBox("La información suministrada es correcta? Deseas continuar con la ejecución ?", _ vbQuestion + vbYesNo, "ExcelJB") If Resp = vbYes Then MsgBox "Se eligió continuar...", vbExclamation, " ExcelJB " 'Aquí se ejecutaría el código MsgBox "Proceso realizado de forma exitosa!", , "Administrador" Else MsgBox "Se eligió cancelar...", vbCritical, " ExcelJB " End If Saludos J
    • Prueba y comenta ejemplo_copiarcol Prueba 1.xlsm
    • Hola @Haplox @Antoni, pues vean que esa propuesta de ejecutar la macro directamente me gusta bastante, me parece genial. Pues el usuario no tiene que estar pendiente de hacer click en un botón (y en este caso lo elimino de la hoja). Mi idea era justamente recordar eso al usuario. De todas maneras será posible incluir en el código un msgbox que le pregunte al usuario si está seguro de que la información cargada es la correcta, de manera que tenga una oportunidad de revisar antes de ejecutar la macro…..si está seguro se ejecuta la macro y si no, no ejecutar la macro y dejar la celda correspondiente de la columna E en blanco para que luego se inicie nuevamente. Gracias!!
    • Hola @Haplox que tal, La macro que se ejecuta en el ejemplo marcada en el cuadro como MACRO A es la que envía a LISTADO GENERAL la información de cada fila de COLORES. Luego con la macro que me hiciste, se actualiza el precio en LISTADO GENERAL cuando el precio varía en la hoja de cada color y en COLORES se actualiza con fórmula. De esta manera las 3 hojas están enlazadas con el precio. 
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy