control de otras aplicaciones abiertas

hola, diego !

... procedimiento que desde VBA para excel, pueda verificar... las aplicaciones activas en un momento dado.
... una macro que me diga en un momento determinado que existe... word abierta, el access, el oultllo, alguna otra sesion de Excel...

prueba haciendo una referencia 'a posteriori' a las aplicaciones que necesites 'rastrear' [p.e.]
Sub Checar_Aplicaciones()
Dim Aplicacion, Sig As Byte, Aviso As String, App As Object
Aplicacion = Array("Access", "Outlook", "PowerPoint", "Word", "Excel")
Aviso = "Las siguientes aplicaciones estan..."
For Sig = LBound(Aplicacion) To UBound(Aplicacion)
On Error Resume Next
Set App = GetObject(, Aplicacion(Sig) & ".Application")
Aviso = Aviso & vbCr & IIf(App Is Nothing, "Ina", "A") & "ctiva" & vbTab & Aplicacion(Sig)
On Error GoTo 0
Next: Set App = Nothing
MsgBox Aviso
End Sub

o consulta la informacion en la pagina de Ole P Erlandsen...
Basic information about OLE automation
http://www.erlandsendata.no/english...eolebasics

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.