Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
marcin_otręba
in reply to: sgwilliams

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,