[Resolvido]Esconder Tabelas

Boa tarde pessoal,

Estive aqui a pesquisar forma de fazer um backup no forum e encontrei algo que me chamou a atenção, um codigo que faz desaparecer as tabelas...pelo menos foi assim que entendi.
Poderiam dizer-me como realmente funciona?? e já agora como poderei fazer funcionar??

Código:

Function EscondeTabelas()
Dim Tb As TableDef
For Each Tb In CurrentDb.TableDefs
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

Obg

Você coloca as funções em um módulo e chama-as em um botão por exemplo. Observe que tem duas funções, uma para esconder e a outra para reexibir.

Criquio e isso quer dizer que quem conseguir aceder a base de dados nunca tera acesso as Tabelas, certos??

Obg

Boa criquio!!
Já consegui e esta a dar correctamente.
Ja agora e se nao for pedir de mais, da para fazer tb as consultas e formularios?
Ou se o fizer ninguem vai conseguir utilizar a BD?

No repositório de Códigos vba, se não me engano, tem uma função para ocultar consultas.

Ja vi sim
os formularios é que nao da mesmo ne?

Assunto resolvido!
As consultas nao da jeito esconder, pois tudo o que esteja ligado as mesmas acabara por dar erro...mas ja ajuda nao haver as tabelas xD

Obrigado

Viu este tópico com atenção ?

http://maximoaccess.forumeiros.com/t144-resolvidosocultar-esconder-consultas

Nao vi nao, irei experimentar e depois digo algo...
vamos ver se consigo por a funcionar