Jump to content

2 Screenshots

Amigos, aquí les dejo un programa recién salido del horno, espero que les sirva, se anexa guía explicativa

User Feedback

Create an account or sign in to leave a review

(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 by sir.tim.otheo

  

Gran aporte! Mil gracias!