Option Compare Database
Option Explicit

Public Sub OcultaTodasTablas()
    Dim Tb As TableDef
    For Each Tb In CurrentDb.TableDefs
      
      MsgBox Tb.Name
        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