08-31-2018
06:15 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-31-2018
06:15 AM
This link suggests checking the files readonly status to see if file is checked out.
The best I have to do the checking in and out is to use the command manager
Sub CheckInGUI()
Dim app As Application
Dim ctrdef As ControlDefinition
Set app = ThisApplication
'For Each cd In App.CommandManager.ControlDefinitions
' If cd.InternalName Like "*Vault*" Then
' Debug.Print (cd.InternalName)
' End If
'Next
Set ctrdef = app.CommandManager.ControlDefinitions.Item("VaultCheckinTop")
ctrdef.Execute
End Subrun the commented section to get a list of the other functions you can run.
If you have vault pro you can automate checkin and checkout but you'd have to make an addin I believe. If your interested I could try to did up the code I started working on to do that but then found out the class I needed was only availible to vault pro which we didn't have.
If I've helped you, please help me by supporting this idea.
Mass Override for Each Model State
Custom Glyph Icon for iMates
Mass Override for Each Model State
Custom Glyph Icon for iMates