因为系统的安全着想,所以想彻底隐藏所有的重要的表.之前在网上看到相关的文章,一种方法是将表的名称前面加一个前缀"USYS",将用户自己的表变成系统表,以起到隐藏的目的.但是,如果有心人将工具菜单的选项中的系统对象勾选,则还是会被显示出来.
另外一种方法是用代码隐藏表.在网上看到例子,只是我实际运行时,发现不能隐藏链接表.
以下这段代码可以隐藏系统中所有的表和链接表.而且不能通过一般办法使其恢复显示.如果要恢复,只需要将下段代码改改就行.
这段代码在执行时我将系统表排除在外了,如果不排除系统表的话,则会连系统表一起给隐藏掉了.
Function chediyincangbiao() '彻底隐蔽所有的表格包括链接表及系统表等
On Error GoTo Err_Command0_Click
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 db.TableDefs(i).name = "msysaccessobjects" or db.TableDefs(i).name = "MSYSaccessXML" _
or db.TableDefs(i).name = "MSYSACES" or db.TableDefs(i).name = "MSYSOBJECTS" _
or db.TableDefs(i).name = "MSYSQUERIES" or db.TableDefs(i).name = "MSYSRELATIONSHIPS" Then
Else
CurrentDb.TableDefs(db.TableDefs(i).name).Attributes = 1
End If
Next i
Set db = Nothing
MsgBox "当前数据库中的所有表格都已被隐藏."
Exit_Command0_Click:
Exit Function
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Function
