Ofuscador de código VBA 1.0.0

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

Gran aporte! Mil gracias!