Sure... Here's a bit of code that will allow you to access the model
object without opening the part.
Dim ActiveModel, Assy, Component, SelMgr as Object
Dim CurrentConfig as String
' Get object for assembly
Set Assy = swApp.ActiveDoc
' Get the selection manager class
Set SelMgr = Assy.SelectionManager()
' Retrieve selected object
Set Component = SelMgr.GetSelectedObject3(1)
' Get object for selected component
Set ActiveModel = Component.GetModelDoc
' Get the referenced configuration
CurrentConfig = Component.ReferencedConfiguration
A product of ours, Custom Property Manager, accesses custom properties
from the assembly without opening the part. It also can put all the
properties for all parts in a list with PropLister. This makes it
easy to compare properties amongst parts and to check if anything is
missing. Parts can be edited by clicking any row in the list.
formatting link
Kent