[Resolvido]Proteçao a acesso à tabela MsysObjetcs

Código:

Private Sub Form_Load()
   Dim rst As DAO.Recordset
   Me.RecordSource = "SELECT * FROM Table1 IN '' [MS Access;PWD=isladogs;DATABASE=" & CurrentProject.Path & "\BE.accdb];"
   Set rst = CurrentDb.OpenRecordset(Me.RecordSource, dbOpenDynaset, dbSeeChanges)
   With rst
       .MoveLast
       .MoveFirst
   End With
   'get record count
   Me.txtTotal = Me.RecordsetClone.RecordCount
   'combo row source
   Me.cboLastName.RowSource = "SELECT DISTINCT Table1.LastName FROM Table1 IN '' [MS Access;PWD=isladogs;DATABASE=" & CurrentProject.Path & "\BE.accdb] ORDER BY Table1.LastName;"
   Me.cmdPrint.SetFocus
End Sub

Código:

Sub fncMostraTabela()

    Dim tbl As TableDef
   
    For Each tbl In CurrentDb.TableDefs
        If tbl.Attributes = 1 Then
            tbl.Attributes = 0
        End If
    Next tbl

End Sub

Código:

CurrentDB.TableDefs("tblQueQueroOcultar").Attributes = 1

Código:

CurrentDB.TableDefs("tblQueQueroMostrar").Attributes = 0

Mylton escreveu:Pois se enxergamos podemos dificultar a sua constatação.

Mylton escreveu:1. Para esconder poderia acrescentar num botão click essa  codificação que fez?
A codificação seria:
Evento click
CurrentDB.TableDefs("tblQueQueroOcultar").Attributes = 1
End  sub

Myton escreveu:2. Uma vez escondida de forma profunda a tabela msysobjects não seria vista quando expusessemos as tabelas ocultas do sistema?

Mylton escreveu:Penso que não. Se estiver correto, não poderia ser vista e em consequência a senha nao seria vista.
Para ser vista teria q ter acesso ao VBA e codificar. Se bloqueamos a codificação quando transformamos para ACCDE e depois para ACCDR não teriam acesso.

Mylton escreveu:Porque as últimas tabelas não podem ser visualizadas?

Mylton escreveu:O que as impedem de ser vistas?

Mylton escreveu:Já alguma codificação que faça isso?

Mylton escreveu:Utilizou se do access ou de outros programa?

Mylton escreveu:Se for pelo access somente a linha proposta pelo Avelino resolve?

Olá, amigos!

nesta semana pretendo montar um vídeo explicativo de como configurar o PROTEC, de forma bem simplificada.

Retornarei aqui avisando