Jump to content

Xanito

Members
  • Posts

    182
  • Joined

  • Last visited

  • Days Won

    2

Xanito last won the day on December 31 2017

Xanito had the most liked content!

About Xanito

  • Birthday 04/19/1982

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Xanito's Achievements

  1. Gerson gracias, eres un genio, si funciono, Tema solucionado.
  2. Buen día genios, aquí molestándolos, sera que me pueden ayudar con una formula EXTRAER ya que trate de copiar uno en este foro pero no funciono a lo que quiero lograr, lo que busco es que alguna formula me extraiga la marca asi como se muestra en el ejemplo, de antemano gracias por su valioso apoyo. EXTRAE-MARCA.xlsx
  3. Oh que interesante, ahí me enseñas como se hace 😊 gracias Gerson.
  4. Que tal Gerson, disculpe que hasta ahora vi tu respuesta, esque ando de viaje. Pero me imagino que ahí dejaste el código, lo voy a ver mañana, gracias Gerson.
  5. Gracias por tu apoyo Antoni, si hay que tener paciencia para el desbloqueo.
  6. Antoni es un gusto recivir tus respuestas, estoy probando el código que mandaste pero se queda pensando tambien☹️
  7. Buen día Genios en Excel alguien tendrá algún código de vba para desproteger hoja de Excel, he buscado en el foro pero no des protege la hoja tampoco no se porque. Ya que uso el siguiente pero solo se queda pensando: Excel VBA Brute Force Override v0.2a Option Explicit Option Private Module Sub BruteForce_Override() On Error GoTo ErrorHandler Dim i As Byte, j As Byte, k As Byte Dim l As Byte, m As Byte, n As Byte Dim o As Byte, p As Byte, q As Byte Dim r As Byte, s As Byte, t As Byte Dim x As Integer, PassWd_Try As String For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For n = 65 To 66 For o = 65 To 66: For p = 65 To 66: For q = 65 To 66 For r = 65 To 66: For s = 65 To 66: Application.StatusBar = x & "/194,560 Possible" x = x + 94: For t = 1 To 126: DoEvents PassWd_Try = Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(n) & Chr(o) & Chr(p) & _ Chr(q) & Chr(r) & Chr(s) & Chr(t + 31) ActiveSheet.Unprotect Password:=PassWd_Try If ActiveSheet.ProtectContents = False Then MsgBox "Overide String Located:" & Chr(13) & _ PassWd_Try & Chr(13) & Chr(13) & _ "The Password has been overriden." & Chr(13) & _ "Do not save this file (with the same name)" & _ "or your breach may be detected.", _ vbExclamation, "Password Overridden" Application.StatusBar = False Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Application.StatusBar = False Exit Sub ErrorHandler: Select Case Err.Number Case 1004 'Password Incorrect Resume Next Case Else MsgBox Err.Source & Chr(13) & Err.Description, vbCritical, "Unknown Error #" & Err.Number Application.StatusBar = False On Error Goto 0 Exit Sub End Select End Sub De antemano gracias por su ayuda. Hoja- copia.xlsm
  8. Version 1.0.0

    108 downloads

    Buenas noches a todos les comparto este archivo de Ingresos y Egreso de repente mas de alguno le sirve la formula que contiene, por lo personal a mi me sirvió mucho. Gracias por su atención.
×
×
  • Create New...

Important Information

Privacy Policy