Sub OcultaPepe()
    Dim Tb As TableDef
    
    For Each Tb In CurrentDb.TableDefs
        If Tb.Name = "Pepe" Then
            Tb.Attributes = dbHiddenObject
        End If
    Next
End Sub

Dim Tb As TableDef

    For Each Tb In CurrentDb.TableDefs
        If Tb.Name = "Pepe" Then
            Tb.Attributes = 0

        End If
    Next


para ocultar una tabla:

    SetHiddenAttribute acTable, "tabla", True

para mostrar una tabla

    SetHiddenAttribute acTable, "tabla", False

para saber si una tabla es visible o no

    EsVisible=GetHiddenAttribute(acTable, "tabla")

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)