[Resolvido]Codigo Ocultar Tabelas Access 2010 - Trava o BD como somente leitura

Senhores peguei este código aqui no site mesmo, mas ele trava o banco como somente leitura e não libera mais (uso o Access 2010).

Alguem sabe como devolver os atributos???

Function OcultaTabelas()
If Not Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Or dbHiddenObject
End If
Next
End Function

Function MostraTabelas()
For Each Tb In CurrentDb.TableDefs
If Tb.Attributes And dbHiddenObject Then
Tb.Attributes = Tb.Attributes Xor dbHiddenObject
End If
Next
End Function

O que vc quer dizer com devolver os atributos?