Otra funcion que sirve tanto para ocultar/mostrar tablas locales como vinculadas.
Public Function AWHideTable(opHIDE As Boolean)
Dim tblTMP As TableDef
For Each tblTMP In CurrentDb.TableDefs
    With tblTMP
    If .Attributes = dbAttachedTable And opHIDE Then
        .Attributes = dbHiddenObject
    ElseIf .Attributes = (dbAttachedTable + dbHiddenObject) And Not opHIDE Then
        .RefreshLink
    ElseIf .Attributes = 0 And opHIDE Then
        .Attributes = dbHiddenObject
    ElseIf .Attributes = 1 And Not opHIDE Then
        .Attributes = 0
    End If
    End With
Next
Application.RefreshDatabaseWindow
End Function