Por el Buho

Function OcultaDesoculta(Ocultar As Boolean)
   Dim Tablas As TableDef
   For Each Tablas In CurrentDb.TableDefs
      If Ocultar = True Then
         If Not (Tablas.Attributes And DB_HIDDENOBJECT) Then
            Tablas.Attributes = Tablas.Attributes + DB_HIDDENOBJECT
         End If
      Else
         If (Tablas.Attributes And DB_HIDDENOBJECT) Then
            Tablas.Attributes = Tablas.Attributes - DB_HIDDENOBJECT
         End If
      End If
   Next
End Function

Y llama a esta funcion con el parametro False/TRUE, es decir
***********************
 OcultaDesoculta False
***********************

y no se verán las tablas de la base de datos ni de coña