Делаю вот так:
Public Sub SaveAll____()
Dim oControlDef As ControlDefinition
Set oControlDef = ThisApplication.CommandManager _
.ControlDefinitions.Item("AppSaveAllCmd")
oControlDef.Execute
End Sub
Все работает, только если в сборку вставлена библиотечная деталь, то инвентор рвется ее сохранять каждый раз когда эта процедура запускается.... а т.к. она защищена от записи, то выдается окно "сохранить как"... Как бы этого избежать, может кто сталкивался?