Amigos, aquí les dejo un programa recién salido del horno, espero que les sirva, se anexa guía explicativa
sir.tim.otheo el 2 de noviembre1 año (editado) 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 Editado el el 2 de noviembre1 año por sir.tim.otheo
Create an account or sign in to leave a review