Saltar al contenido

sir.tim.otheo

Miembro
  • Unido

  • Última visita

Todo se publica por sir.tim.otheo

    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