2

Wie kann über VBA den "Schnellzugriff auf die zuletzt verwendeten Datenbanken" abschalten?

Für diese Checkbox gibt es keinen RibbonXML Callback und keine Option (SetOption) um diese via VBA zu setzen.

Sie können folgendes RibbonXML verwenden damit die MRU nicht mehr angezeigt wird:

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

Alternativ:

Diese Einstellung ist in der Registry hinterlegt und wird für den aktuellen User gespeichert.

Verwenden Sie folgenden Code um beim Datenbank-Start die Anzeige der Datenbanken zu anzuzeigen bzw. zu unterbinden: 

'Code in ein neues Standardmodul:
  
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_USERSoftwareMicrosoftOffice14.0AccessFile MRUQuick Access Display", iShow, "REG_DWORD"
  'Für Excel verwenden Sie:
  ' objWSHShell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftOffice14.0ExcelFile MRUQuick Access Display", iShow, "REG_DWORD"
  'Für Word verwenden Sie:
  ' objWSHShell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftOffice14.0WordFile MRUQuick Access Display", iShow, "REG_DWORD"
  Set objWSHShell = Nothing
  
End Sub

Aufruf mit:

   SetBackstageQuickAccessDisplay show ' Anzeigen

bzw.

   SetBackstageQuickAccessDisplay hide 'Verbergen

Stellen Sie sicher, das beim Beenden der Datenbank wieder der ursprüngliche Wert eingestellt wird.