2

How to disable the "Quick access to Recent Databases" using VBA ? FAQ Link

Quick Access

For these  Checkbox there's no RibbonXML Callback available, furthermore there's no option (SetOption) that could be set by using VBA.

 

 

 

 

 

 

 

Use following RibbonXML to hide the MRU:

<backstage>
   <tabidMso ="TabRecent" visible="false"/>
</backstage>

or:


This setting is made to the registry and will be stored for the current user.

Use the following code to hide or display the recent databases at startup.

 

'Code into a new standard module:
  
Public Enum ShowQuickAccesDisplay
    show = 1
    hide = 0
End Enum
  
Public Sub SetBackstageQuickAccessDisplay(iShow As ShowQuickAccesDisplay)
  Dim objWSHShell As Object
  Set objWSHShell = CreateObject("WScript.Shell")
  objWSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\File MRU\Quick Access Display", iShow, "REG_DWORD"
  'In Excel use :
  ' objWSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\File MRU\Quick Access Display", iShow, "REG_DWORD"
  'In Word use:
  ' objWSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Word\File MRU\Quick Access Display", iShow, "REG_DWORD"
  Set objWSHShell = Nothing
End Sub

 

Use:

   SetBackstageQuickAccessDisplay show 'Display

respectively:

   SetBackstageQuickAccessDisplay hide 'Hide 

Ensure the resetting of the original value on closing the database.