Limiting access to features

Before and after certain commands are executed in LIME Pro, VBA events that can be listened to are triggered. These events are named Explorer_BeforeCommand and Explorer_AfterCommand.

The following example disables usage of the Export to Excel feature:

Private WithEvents m_Explorer As Lime.Explorer
 
Private Sub Application_AfterActiveExplorerChanged()
   Set m_Explorer = Application.ActiveExplorer
End Sub
 
Private Sub m_Explorer_BeforeCommand(ByVal Command As CommandEnum, ByVal Parameter As Variant, Cancel As Boolean)
   If Command = lkCommandExportToExcel Then
       MsgBox "Detta tillåter jag inte.", vbInformation
       Cancel = True
   End If
End Sub

It is possible to hide certain buttons in the explorer toolbar by modifing the Explorer.Settings collection. The following example hides the Link record button for the Persons tab (if one exists):

Private WithEvents m_Inspector As Lime.Inspector
 
Private Sub Application_BeforeActiveInspectorChanged(ByVal NextInspector As IInspector)
   Set m_Inspector = NextInspector
End Sub
 
Private Sub m_Inspector_BeforeShow(Cancel As Boolean)
   If m_Inspector.Explorers.Exists("persons") Then
       m_Inspector.Explorers("persons").Settings.Write "DisableLink", True
   End If
End Sub

The following buttons can be modified:

To show the button set the value to False.

Users may normally individually configure which fields and tabs that are visible. To prevent this behavior the following VBA code can be used:

Application.Database.Settings.Item("Application").Value("DisableInspectorLayout") = True

This can also be done for a specific database class, company in this case:

Application.Database.Settings.Item("Inspectors").Item(Application.Database.Classes("company").GUID).Value("DisableLayout") = True