Saltar al contenido

sir.tim.otheo

Miembro
  • Contador de contenido

    1
  • Unido

  • Última visita

  • País

    España

Configuraciones

  • Campo que utilizas como separador de argumentos
    ;
  • Mi versión de Excel:
    4

sir.tim.otheo's Achievements

Novato

Novato (1/14)

0

Reputación de la comunidad

    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
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.