Estas funciones de Chea, coultan y desocultan tablas en una MDB

Ojo, que las ocultan de forma real, nada que luego se pueda deshacer
en el menu herramientas opciones.
Si se coultan mediante este metodo, la unica forma de hacerlas visibles de nuevo
es correr el codido inverso.

Public Sub OcultaTodasTablas()
    Dim Tb As TableDef
    For Each Tb In CurrentDb.TableDefs
        If Not Tb.Attributes And dbHiddenObject Then
            Tb.Attributes = Tb.Attributes Or dbHiddenObject
        End If
    Next

End Sub

Public Function MuestraTodasTablas()
Dim Tb As TableDef
    For Each Tb In CurrentDb.TableDefs
        If Tb.Attributes And dbHiddenObject Then
            Tb.Attributes = Tb.Attributes Xor dbHiddenObject
        End If
    Next
End Function