Saltar al contenido

sir.tim.otheo

Miembro

  • Unido

  • Última visita

Ver perfil Ver su actividad

Todo se publica por sir.tim.otheo

  1. sir.tim.otheo

    Ofuscador de código VBA

    archivo revisó en sir.tim.otheo en bigpetroman Utilidades
    Una utilidad magnífica. Si me permite una contribución, creo que, para evitar machacar la hoja original y perder el código original (ha veces soy bastante totufo 🙄) se podría añadir el siguiente código en rojo al botón "Examinar". De ésta forma se trabajaría con una copia y no con el archivo original. Private Sub Examinar_Click() Dim ArchivoOfuscado As String ChDrive Mid(ThisWorkbook.Path, 1, 2) ChDir ThisWorkbook.Path Archivo = Application.GetOpenFilename("Excel Files (*.xl*), *.xl*") 'creamos copia de Excel a ofuscar ArchivoOfuscado = Replace(Archivo, ".xlsm", " OFUSCADO.xlsm") FileCopy Archivo, ArchivoOfuscado Archivo = ArchivoOfuscado If Archivo <> False Then Encriptar.Enabled = True End Sub