Access - Crear MDE mediante código

¿Es posible?
Con DoCmd se puede compactar y reparar, pero no se puede crear archivo MDE de la base de datos abierta??

Puedes utilizar este código (y muchos otros) que se encuentra en la Knowledge Base (puedes consultarla en el sitio web de Microsoft).

Function GenerarMDEArch(MyRuta As String)

Dim NAcc As Access.Application

Set NAcc = CreateObject("Access.Application")

'The following lines simulate accepting the default
'name, clicking Make MDE, and clicking Save
SendKeys MyRuta & "{Enter}{Enter}"
SendKeys "{Enter}"

NAcc.DoCmd.RunCommand acCmdMakeMDEFile

Set NAcc = Nothing

End Function

Esta función la puedes usar dentro de otro procedimiento, por ejemplo
Para crear una archivo MDE de una base de datos llamada MiBD.mdb ubicada en el directorio C:\

Sub CrearMDE()
GenerarMDEArch "C:\MiBD.mdb"
End Sub

Esto crea una base de datos MDE con el mismo nombre (C:\MiBD.MDE)