Ocultar/mostrar las tablas

Las siguientes funciones muestran y ocultan todas las tablas de una base de datos.

Public Function OcultaTodasTablas(Ruta As String)
Dim Tb As TableDef
Dim db As Database
Set db = OpenDatabase(Ruta)
For Each Tb In db.TableDefs
If Not Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Or dbHiddenObject
End If
Next
End Function

Para mostrar las tablas:

Public Function MuestraTodasTablas(Ruta As String)
Dim Tb As TableDef
Dim appAccess As Access.Application
Dim db As Database
Set db = OpenDatabase(Ruta)
For Each Tb In db.TableDefs
If Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Xor dbHiddenObject
End If
Next
End Function

Fuente: Chea