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.