navigationspanel DoCmd.NavigateTo

Jeg kan ikke få dette til at virke. Får en fejl uanset hvad.

Fandt ud af det (kør på én linje som vist, hvis du kalder koden manuelt).
Det er en virkelig styg misk-mask syntax:

DoCmd.NavigateTo "acNavigationCategoryObjectType" : DoCmd.RunCommand acCmdViewTables

Kilde: https://www.isladogs.co.uk/nav-pane-helper/

Desværre
Som jeg skriver skal kun tabeller vises alt andet skjules
acCmdViewTables bevirker tabellerne godt nok vises fremhævet men alt andet kan stadig ses ved valg fra rullemenuen
Jeg har prøvet dette - men alt lukkes:

DoCmd.NavigateTo "acNavigationCategoryObjectType": DoCmd.RunCommand acCmdWindowHide
                                DoCmd.NavigateTo "acNavigationCategoryObjectType": DoCmd.RunCommand acCmdViewTables

Allerbedst ville det være hvis alt blev skjult og kun nogle udvalgte tabeller vistes

Det er jo så det modsatte af, hvad du spurgte om.

Da skal du oprette en gruppe med de tabeller, du vil vise.
Dernæst vælge at få vist custom grupper og kun den med tabellerne.

Det er alt sammen nøje beskrevet i artiklen, jeg fandt linket til.