Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 07/26/2021 in all areas

  1. Algo sencillo, te dejo una función que encripta/desencripta de forma alternativa. Con la hoja PNAC activada: 'En un módulo normal Function EncriptaDesencripta(Texto As String) As String For y = 1 To Len(Texto) Mid(Texto, y, 1) = Chr(255 - Asc(Mid(Texto, y, 1))) Next EncriptaDesencripta = Texto End Function Sub Ejemplo() 'Ejemplo de funcionamiento de la función Range("B2") = EncriptaDesencripta(Range("B2")) End Sub
    1 point
  2. Abre el adjunto y pulsa en GENERAR CÓDIGOS QR y después en ELIMINAR CÓDIGOS QR. Mañana, si puedo, te mostraré como visualizar un código QR en un userform. GENERADOR CODIGO QR.xlsm
    1 point
×
×
  • Create New...

Important Information

Privacy Policy