Leaderboard

Prueba y comenta. https://drive.google.com/file/d/1Kn4z4rR2FSanPlJZoNcDcctEqqxzpyCR/view?usp=sharing

'Ejemplo encriptar/desencriptar toda la hoja PNAC Sub EncriptaDesencriptaPNAC() Application.ScreenUpdating = False x = 2 Do Until Range("A" & x) = "" For y = 1 To 7 Cells(x, y) = EncriptaDesencripta(Cells(x, y)) Next x = x + 1 Loop End Sub 'Ejemplo para la fila 100 Sub EjemploFila100() Application.ScreenUpdating = False For y = 1 To 7 Cells(100, y) = EncriptaDesencripta(Cells(100, y)) Next End Sub Nota: En el archivo que has subido hay unas 7.000 filas con información y más de 1.000.000 en blanco.

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

¡Ya está! Para mostrar una imagen que está en la hoja, hay que convertirla a jpg previamente. Abre el adjunto y pulsa sobre un código QR de la columna C. GENERADOR CODIGO QR.xlsm

Hola Xoel, Es complicado ayudarte si no conocemos cómo tienes dispuestos los datos en las hojas. Entiendo que se trata de información confidencial por tanto te sugiero que clones tu libro de trabajo y elimines los datos privados pero mantengas su estructura. De otra forma no te podremos dar una solución concreta. Un saludo,

Enhorabuena por tu cambio de nombre Silvia, digo ...Laura. Vamos a celebrarlo: Saludos.