- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi,
This is sufficient way to accomplish it thru VBA... after determine status of file you can use .execute to checkin the files... if you want to do it without user interaction switch off check_in dialog window in inventor vault options..:"
If ThisApplication.CommandManager.ControlDefinitions.Item("VaultDataCardtop").Enabled = True And
ThisApplication.CommandManager.ControlDefinitions.Item("VaultCheckouttop").Enabled = True Then
Debug.Print "in vault(not checked out) check out possible"
End If
If ThisApplication.CommandManager.ControlDefinitions.Item("VaultDataCardtop").Enabled = True And
ThisApplication.CommandManager.ControlDefinitions.Item("VaultUndoCheckouttop").Enabled = True Then
Debug.Print "in vault checked out"
End If
If ThisApplication.CommandManager.ControlDefinitions.Item("VaultDataCardtop").Enabled = True And
ThisApplication.CommandManager.ControlDefinitions.Item("VaultCheckouttop").Enabled = False And
ThisApplication.CommandManager.ControlDefinitions.Item("VaultCheckintop").Enabled = False Then
Debug.Print "in vault locked (not possible to check out)"
End If
If ThisApplication.CommandManager.ControlDefinitions.Item("VaultDataCardtop").Enabled = False Then
Debug.Print "not in vault"
End If,