Configurações de permissões de recursos do banco de dados atual

Apartir de um exemplo do Grande Plinio Mabesi, o amigo Assis implementou ao conjunto de configurações o recurso de ocultação de tabelas.

Sendo uma colaboração do Assis para com o nosso fórum, abaixo o link para download deste excelente exemplo:

Download

A senha é: 2012

Obrigado pela contribuição

Legal o exemplo.

Bem a maneira do exemplo oculta apenas tabelas nativas, caso deseje ocultar tabelas vinculadas ai vai o codigo:

Em um modulo cole:

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


depois nos botoes ao clicar coloque:


AWHideTable -1 'para ocultar


AWHideTable 0 'para exibir


blz, deixo aqui minha dica

Os exemplos são fantásticos mesmo , pena não ocultar também do Excel...
Mas já é uma proteção a mais!!

o exemplo do Plinio já o conhecia, muito bom....e do Jose Moraes testei e recomendo. Obrigado por ser membro desse forum....e fique a vontade contribua quando e quanto quiser

Não se esqueçam que o tópico abaixo tem 102 códigos, por ordem alfabetica (facil de achar).

Vejam na Letra "E"
http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

Verdade....inclusive eu uso....caraca, me desculpe JPaulo por não comentar sobre seu exemplo de ótima qualidade.....bom mas agora estou....pessoal uso e recomendo....agora sim
Alias JPaulo estou corrigindo algumas injustiças....ajudei o pessoal com algumas digamos "ideias e codigos seus" mas já estou acrescentando o devido credito...como este:
http://maximoaccess.forumeiros.com/t6421-resolvido-atualizar-dados-em-campos-de-subformularios

Exemplo recolocado com devidas correções de fontes.