Amigos, aquí les dejo un programa recién salido del horno, espero que les sirva, se anexa guía explicativa
sir.tim.otheo November 2, 20231 yr (edited) 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 Edited November 2, 20231 yr by sir.tim.otheo
Create an account or sign in to leave a review