数据导入的安全性

Function HIDE()     '彻底隐蔽所有的表格包括链接表及系统表等

On Error GoTo Err

Dim db As Database
Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)    
    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.Count - 1
      If mid(db.TableDefs(i).name,1,4)<> "msys" Then    '此项操作为避开系统表,以免将系统表属性改而造成问题.
    Else
       CurrentDb.TableDefs(db.TableDefs(i).name).Attributes = 1  '= 0 为显示所有表
    End If
    Next i
    Set db = Nothing
   'MsgBox "当前数据库中的所有表格都已被隐藏."

End Function