Uso del " dbHiddenObject" para ocultar tablas en access

Hola utilice el siguiente procedimiento para ocultar tablas en otra pregunta :

For I = 0 To CurrentDb.TableDefs.Count - 1
If CurrentDb.TableDefs(I).Attributes = 0 Then CurrentDb.TableDefs(I).Attributes = dbHiddenObject
Next I

como es el procedimiento para mostrarlas? Gracias!!