Ciao,
ho bisogno di nascondere una sola tabella del mio mde, in modo che non ci si possa collegare esternamente da un altro db Access.
Naturalmente è inutile utilizzare la proprietà "nascosta" della tabelle perchè a chi si vuole collegare basterà attivare la visualizzazione degli oggetti nascosti...

Su Sitocomune (tables 1.4) ho trovato questo codice che dovrebbe fare quello che mi serve:

codice:
Function HideTbl(strTable As String, intHide As Integer) As Integer
   'Nasconde o Mostra una tabella
   'Accetta:   intHide: True (-1) nasconde, False (0) rende visibile
   'Ritorna:   True se OK, False se errore
   On Error GoTo HT_ERR

   Dim TDef As TableDef, dbs As Database
   Set dbs = CurrentDb
   Set TDef = dbs.TableDefs(strTable)

   Select Case intHide
      Case True
         If Not (TDef.Attributes And DB_HIDDENOBJECT) Then
            TDef.Attributes = TDef.Attributes + DB_HIDDENOBJECT
         End If
      Case Else
         If (TDef.Attributes And DB_HIDDENOBJECT) Then
            TDef.Attributes = TDef.Attributes - DB_HIDDENOBJECT
         End If
   End Select

   HideTbl = True

EXIT_HT:
      Exit Function
HT_ERR:
   HideTbl = False
   MsgBox "Error: " & Err & " " & Error, 48
   Resume EXIT_HT
End Function
ma non capisco come utilizzarlo...
Nel senso: dove gli dico quale tabella voglio nascondere? Quando devo lanciare questa function?
Qualcuno mi sa aiutare?
Thanks