了解 Microsoft Access 安全性

图 5：“设置安全机制向导”对话框的第六个屏幕

在此屏幕中（见 图 6 ），您可以向工作组信息文件中的组添加用户。进行您的选择后单击“下一步”。 图 6：“设置安全机制向导”对话框的第七个屏幕

在最后一个屏幕中，为不具有安全设置的的备份选择一个名称。保护好此原始的备份是很有必要的，以防万一丢失或损坏了具有安全设置的。单击“完成”。原始将用 .bak 扩展名保存。 警告： 当创建工作组信息文件后，Security Wizard 将创建一个报表，其中包含重新创建工作组信息文件所需的所有信息。您必须保存好此信息，以便在原始文件丢失或损坏时重新创建文件。

单击“完成”后，Security Wizard 将加密，然后要求您使用新的工作组信息文件重新打开进行了安全设置的。

下面我们来看看几种编程使用用户和组的方法。

通过编程添加和删除用户和组

为设置了安全性后，您可能需要使用用户和组。以下各节展示了其中的一些技巧。 在使用以下各节介绍的过程之前，可能需要设置对 Microsoft ADO Ext 2.5 for DDL and Security 库的引用（假如尚未设置）：

1. 在 Visual Basic 编辑器中，指向“工具”菜单中的“引用”。将显示“引用”对话框。
2. 选中 Microsoft ADO Ext 2.5 for DDL and Security 复选框。

添加和删除用户

以下过程将创建一个新的用户帐户，然后将其追加到用于当前的工作组信息文件中的默认 Users 组。 注重： 要在 Access 中使用下面的示例，您需要作为 Admins 组的成员登录并打开一个。在下面的过程中，您要确保工作组信息文件不包含在 strUser 中指定了其名称的用户。例如，您可以先调用 DeleteUser 子例程来确保这一点。 请看以下代码： Private Function AddUser(ByVal strUser As String, _ ByVal strPID As String, _ Optional ByVal strPwd As String) As Boolean Dim catDB As ADOX.Catalog On Error GoTo AddUser_Err ' 实例化 Catalog 对象。 Set catDB = New ADOX.Catalog With catDB ' 使用到当前的连接打开 ' Catalog 对象。 .ActiveConnection = CurrentProject.Connection ' 创建新的用户帐户。 .Users.Append strUser, strPwd, strPID ' 向默认 Users 组追加新的用户帐户。 .Groups("Users").Users.Append strUser End With ' 关闭 Catalog 对象。 Set catDB = Nothing AddUser = True AddUser_Err: Msgbox Err.Number & ":" & Err.Description AddUser = False End Function 该过程首先为 Catalog 对象声明一个变量，然后实例化该对象。 注重： Catalog 对象是 Access 文件中所有对象的容器。 然后，该过程打开到当前的连接，并使用来自调用过程的参数，将新用户追加到 Catalog

标签云:安全性 了解 设置 用户 文件 密码 使用 对象 权限 Ac